Routine: GMRAPET0

Information

GMRAPET0 ;HIRMFO/RM-VERIFIED ALLERGY TASKS ;11/17/06 10:27

Name	Comments	DBIA/ICR reference
EN1(GMRADFN,GMRAPA,GMRACT,GMRAOUT)	; ; ENTRY TO PERFORM ALL OF THE TASKS NECESSARY FOR ; A PROGRESS NOTE TO BE ENTERED BY ART ; INPUT: ; GMRADFN = PATIENT IEN IN THE PATIENT FILE ; GMRAPA = THE IEN IN THE PATIENT ALLERGY FILE ; GMRACT = THE ACTION TO BE ENTERED FOR THIS REACTION ; = "V" VERIFICATION OF A REACTION ; = "S" SIGN OFF OF A REACTION ; = "M" MEDWATCH FORM ENTERD ; = "E" REACTION ENERED IN ERROR ; OUTPUT: ; GMRAOUT = REACTION ALL WAS PASSED ; = 1 USER ABORT OR PN FAIL IN SOME WAY ; = 0 PASSED
EXIT	; Clean up of variables
ASK	; Simple file manager query for a location in file 44
V	; Verified Reaction
S	; Signed Reaction
M	; MedWATCH data entered
E	; Reaction Entered in Error
ADDCOM(TYPE,CNT)	;Add any comments to progress note - section added in patch 21

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No Progress Note was created." Line Location: EN1+52
Function Call: WRITE	Prompt: !,"Progress note has not been signed." Line Location: EN1+53
Function Call: WRITE	Prompt: !,"A progress note is being created because you "_$S(GMRACT="V":"verified",GMRACT="E":"inactivated",GMRACT="S":"activated",1:"entered a medwatch form for"),!,$P($G(^GMR(120.8,GMRAPA,0)),U,2),"." Line Location: ASK+4
Function Call: WRITE	Prompt: !,"Enter a hospital location to be associated with this note." Line Location: ASK+5