Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: GMRAPET0

Package: Adverse Reaction Tracking

Routine: GMRAPET0


Information

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

Source Information

Source file <GMRAPET0.m>

Entry Points

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

Interaction Calls

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
Info |  Source |  Entry Points |  Interaction Calls