| DA |
Input |
Internal entry number of the PROBLEM file (#9000011).
|
AUPROV |
Input |
Pointer to the NEW PERSON file defining the provider
for which comments can be returned.
|
AUPVAMC |
Input |
Pointer to the LOCATION file (#9999999.06) which is a
DINUMed file to the INSTITUTION. This defines the division for which comments
should be returned.
|
GMPFLD |
Output |
Array, subscripted by field number, containing the
internal^external value of data stored for the PROBLEM entry requested.
Comments are stored in GMPORIG(10,n) where GMPORIG(10,0) is set to the number
of comments and GMPORIG(10,1-n) are the comments returned.
Example output:
GMPFLD(.01)=9041^413.0
GMPFLD(.03)=2991006^10/6/99
GMPFLD(.05)=305^Angina Decubitus
GMPFLD(.08)=2991006^10/6/99
GMPFLD(.12)=A^ACTIVE
GMPFLD(.13)=
GMPFLD(1.01)=
GMPFLD(1.02)=P
GMPFLD(1.05)=1364^MERRILL,JEREMY
GMPFLD(1.06)=1^MEDICINE
GMPFLD(1.07)=
GMPFLD(1.08)=16^PULMONARY CLINIC
GMPFLD(1.09)=
GMPFLD(1.1)=
GMPFLD(1.11)=
GMPFLD(1.12)=
GMPFLD(1.13)=
GMPFLD(1.14)=
GMPFLD(1.15)=
GMPFLD(1.16)=
GMPFLD(1.17)=
GMPFLD(1.18)=
GMPFLD(1.19)=
GMPFLD(10,0)=1
GMPFLD(10,1)=1^1^Angina^A^2991006^1364
|
GMPORIG |
Output |
Array returned exactly as the GMPFLD array is
returned.
|