Print Page as PDF
GMRPART ICR (455)

GMRPART    ICR (455)

Name Value
NUMBER 455
IA # 455
DATE CREATED 1996/02/13
CUSTODIAL PACKAGE PROGRESS NOTES
CUSTODIAL ISC Salt Lake City
USAGE Private
TYPE Routine
ROUTINE GMRPART
NAME GMRPART
ORIGINAL NUMBER 455
GENERAL DESCRIPTION 
The Adverse Reaction Tracking (ART) package will use
the GMRPART utility to generate a progress note with a title of
ALLERGY/ADVERSE REACTION. ART will pass the necessary data, by reference, to
the GMRPART routine with the exception of the text of the progress note which
will exist in the TMP global (^TMP("GMRP",$J,) at the time GMRPART is called.
STATUS Retired
DURATION Till Otherwise Agreed
ID GMRPART
COMPONENT/ENTRY POINT
COMPONENT/ENTRY POINT COMPONENT DESCRIPTION VARIABLES
PN 
The Progress Note utility call is:

$$PN^GMRPART(GMRPDFN,GMRPDUZ,GMRPDT,GMRPTTL,LOC)
VARIABLES TYPE VARIABLES DESCRIPTION
GMRPDUZ Input 
The user's DUZ number (File #200).
GMRPDFN Input 
The patient's internal entry number (File #2).
GMRPDT Input 
The date/time (FileMan format) of the Progress Note.
GMRPTTL Input 
The internal entry number of the Progress Note Title
(File #121.2).
LOC Input 
The internal entry number of the Hospital Location
for the patient (File #44).
TMP('GMRP',$J, Input 
This temporary global contains the text of the
Progress Note.
GMRPIFN Output 
This variable is passed by reference. If GMRPIFN=-1,
then no progress note was created. If GMRPIFN=0 then a progress note was
created, but not signed.
SUBSCRIBING PACKAGE
SUBSCRIBING PACKAGE ISC
ADVERSE REACTION TRACKING Hines