DGPHIST ;WASH/ERC - PURPLE HEART REQUEST HISTORY ;23 AUG 00
Source file <DGPHIST.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ;Entry point
|
|
GETDFN() | ;Ask the user to select patient
|
|
GETPAT(DFN) | ; get patient name and ssn
|
|
PH(DGDFN1) | ; does patient PH history exist
|
|
DEVICE() | ;select output device
|
|
START | ;
|
|
DATA | ;Build line data and print
|
|
HEAD | ; page header
|
|
EXIT | ;
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | Classic Fileman Calls, GET1^DIQ |