Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: GMRAPET0

Package: Adverse Reaction Tracking

Routine: GMRAPET0


Information

GMRAPET0 ;HIRMFO/RM-VERIFIED ALLERGY TASKS ;01-May-2012 14:25;DU

Source Information

Source file <GMRAPET0.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Text Integration Utility 3 $$CANPICK^TIULP  NEW^TIUPNAPI  $$WHATITLE^TIUPUTU  
VA Fileman 2 NOW^%DTC  ^DIC  
Adverse Reaction Tracking 1 VAD^GMRAUTL1  
Kernel 1 $$FMTE^XLFDT  
RPC Broker 1 $$BROKER^XWBLIB  

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Adverse Reaction Tracking 7 GMRAGUI1  GMRAPEE0  GMRAPT  GMRAROBS  GMRASIG1  GMRAVAM0  GMRAVFY  

Entry Points

Name Comments DBIA/ICR reference
E ; Reaction Entered in Error
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
M ; MedWATCH data entered
S ; Signed Reaction
EXIT ; Clean up of variables
ADDCOM(TYPE,CNT) ;Add any comments to progress note - section added in patch 21
V ; Verified Reaction
ASK ; Simple file manager query for a location in file 44

External References

Name Field # of Occurrence
NOW^%DTC S+2, M+3
^DIC ASK+6
VAD^GMRAUTL1 EN1+42
$$CANPICK^TIULP EN1+37
NEW^TIUPNAPI EN1+37
$$WHATITLE^TIUPUTU EN1+34
$$FMTE^XLFDT V+6, S+8, M+5, E+5
$$BROKER^XWBLIB EN1+28

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No Progress Note was created."
  • Line Location: EN1+53
Function Call: WRITE
  • Prompt: !,"Progress note has not been signed."
  • Line Location: EN1+54
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
Routine Call
  • DIC
  • Line Location:
    • ASK+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(42 - [#42] EN1+43
^GMR(120.8 - [#120.8] ASK+4, V+2, S+4, M+2, E+2, E+3, ADDCOM+2, ADDCOM+5
^TMP("TIUP" EN1+26!, EXIT+1!, V+5*, V+6*, V+8*, S+4*, S+6*, S+7*, S+8*, S+9*
, S+10*, M+5*, M+6*, M+7*, E+5*, E+6*, E+7*, E+9*, ADDCOM+3*, ADDCOM+4*
, ADDCOM+5*

Label References

Name Line Occurrences
@( EN1+40
ADDCOM V+7, S+5, E+8
EXIT EN1+29, EN1+37, EN1+40, EN1+55

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % S+3, M+4
CNT ADDCOM~, ADDCOM+3*, ADDCOM+4*, ADDCOM+5*
DIC ASK+1~, ASK+3*
DIC("A" ASK+3*
DIC("S" ASK+3*
DIC(0 ASK+3*
>> DTOUT ASK+7
>> DUOUT ASK+7
DUZ V+4, S+3, M+4
ENTRY ADDCOM+1~, ADDCOM+2*, ADDCOM+5
GMRACT EN1~, EN1+29, EN1+40, ASK+4
GMRACW EN1+27~, EN1+34*, EN1+37
GMRADFN EN1~, EN1+42
>> GMRADT V+3*, V+6, V+8, S+3*, S+8, S+10, M+4*, M+5, M+7, E+4*
, E+5, E+9
GMRADUZ EXIT+1!, V+3*, V+4*, S+3*, M+4*, E+4*
GMRAER E+1~, E+3*, E+4
GMRAHLOC EN1+27~, EN1+43*, EXIT+1!, ASK+8*
GMRAI V+1~, V+7*, V+8, S+1~, S+4*, S+5, S+6*, S+7, S+10, E+1~
, E+8*, E+9
GMRALOC EN1+27~, EN1+41*, EN1+42, EN1+43, EXIT+1!
GMRAOUT EN1~, EN1+29*, EN1+37*, EN1+40, ASK+7*, E+3*
GMRAPA EN1~, ASK+4, V+2, S+4*, M+2, E+2, E+3, ADDCOM+2, ADDCOM+5
GMRAPA( S+4
GMRAPA(0 V+2*, V+3, V+5, M+2*, M+6, E+2*, E+5, E+7
GMRAPN EN1+26!, EN1+28*, EXIT+1!
GMRAREAC S+1~, S+4*
GMRAXBOS EN1+27~, EN1+28*
SUB ADDCOM+1~, ADDCOM+5*
TYPE ADDCOM~, ADDCOM+2
U ASK+4, V+3, V+8, S+4, S+10, M+7, E+4, E+9
X ASK+2*, M+1~
>> Y ASK+8

Marked Items

Name Field # of Occurrence
$T(NEW^TIUPNAPI EN1+37
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All