NB: At any point, clicking on <Find Patient> (cmdClose, #16 of blueprint) will close this form and return the user to the browser front end.

• Form opens and activates (see Form_Open, line 513, p. 10 of module) [EncID and MRUN fields are set to empty, non-NULL values. All boxes are hidden except for the prompt and the box for the unit number and date at top.]
• User enters a complete unit number in the [MRUN] box (#2 of blueprint). Machine activates MRUN_BeforeUpdate (line 532, p. 10) procedure, which calls CheckDemographics procedure (line 16, p. 1 of module). If a patient is found, demographics are shown, age is calculated, and a new prompt is shown to determine if we have the correct patient. In addition, the program opens a recordset to run the SortForms query to find the first form whose maximum age is greater than the patient's age. This will be used to generate the default form in the cboForm box. It does this by stuffing the query results into a module-global variable called PatientFormName.
• If the user clicks "NO" (cmdNo button, #5 on blueprint), we clear the form and start over (Sub ClearForm, line 104 of module)
• If the user clicks "YES" (cmdYes button, #4 on blueprint), a procedure (Sub cmdYes_Click, line 300, p. 6 of module) will show the bottom set of boxes, stuff the PatientFormName variable into the cboForm picklist box (#6 on blueprint), and prompt for entry of measurement information.
• The user can accept the default form in cboForm, or select another form by clicking on the arrow on the right side of the box.
• The user then enters measurements by clicking in the appropriate box. (The cursor will be placed in the Length box by default.) They only need to type the exact number for the measurement, not the four-digits-no-matter-what method used in the CICS screen. However, users must use the decimal point if needed, and they must use the mouse or the , , or key to switch between fields.
• Once the measurements are entered, the user can click on the <Print Form> button (cmdPrint, #12 on blueprint). At that point, the Sub cmdPrint_Click procedure starts (line 232, p. 5 of module).
• cmdPrint_Click activates the CreateNewEncounter function (line 452, p. 9 of module), which generates a new encounter record in the Encounter table. It then reads the EncID value which is generated by the Encounter table and stuffs it in the invisible [EncID] field.
• cmdPrint_Click then activates the CreateMeasEvt function (line 337, p. 7), which creates all appropriate measurement events in association with this EncID. (Records are all written with the abstracted RecordMeasurement function (line 567, p. 11.)
• cmdPrint_Click then stuffs some demographic information into global variables to pass on to the growth chart.
• Finally, it opens RptPatient, which merges the demographic data, barcoded EncID, and form macro onto a single page.
• Then, it opens RptGrowth, which plots a growth chart.
• NB: Geoff's duplex version stuffs all the code into a single common report. This report must format the encounter information in the Header1_Format procedure, and format the growth chart using the Detail_Format procedure.

Last updated on June 11, 1998 by James C.S. Liu