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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: GMRADSP6

Package: Adverse Reaction Tracking

Routine: GMRADSP6


Information

GMRADSP6 ;HIRMFO/YMP,RM,WAA-LISTING OF ALLERGIES NOT NENTERED IN ERROR ;07-Dec-2010 15:55;DU

Source Information

Source file <GMRADSP6.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 4 ^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  $$REPEAT^XLFSTR  KILL^XUSCLEAN  
Adverse Reaction Tracking 2 (EOP,HDR)^GMRADSP3  ($$OUTTYPE,CLOSE,DEV)^GMRAUTL  
Registration 1 (DEM,KVAR)^VADPT  
VA Fileman 1 ^DIC  

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Adverse Reaction Tracking 2 GMRA PRINT-ACTIVE LISTING  GMRAU851  
IHS Mods To Patient Care Encounter 2 BPXRMAL1  BPXRMALL  
IHS Changes To Pharmacy 1 APSPESAL  
IHS GPRA Information System 1 BGPMUA10  

Entry Points

Name Comments DBIA/ICR reference
DISP ;
TASK ;
INACTIVE(LP) ;
WRITG ;
REST ;
EN1 ; Entry to ACTIVE LISTING OF PATIENT REACTIONS option
EN2 ; Print Active Patient list if patient and device known
EN3 ;Print Active Patient list if patient is known
EXIT ;Quit and kill
EN2A
DISP2

External References

Name Field # of Occurrence
^%ZTLOAD TASK+1
^DIC EN1+2
EOP^GMRADSP3 DISP2, REST+1, REST+4
HDR^GMRADSP3 EN2+1
$$OUTTYPE^GMRAUTL DISP2+1
CLOSE^GMRAUTL EXIT+2
DEV^GMRAUTL EN3+7
DEM^VADPT EN3+1
KVAR^VADPT EN3+1
$$FMTE^XLFDT EN3+4, REST+15
$$NOW^XLFDT EN3+4
$$REPEAT^XLFSTR EN2+2
KILL^XUSCLEAN EXIT+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$C(7),"NO ALLERGY/ADVERSE REACTION DATA EXISTS FOR THIS PATIENT"
  • Line Location: EN3+6
Function Call: WRITE
  • Prompt: !," Patient has answered NKA."
  • Line Location: EN2+3
Function Call: WRITE
  • Prompt: !,?33,"No Data Found"
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: !!?3,"TYPE: ",GMRATYPE,!?3,$E(GMRALIN,1,$L(GMRATYPE)+6)
  • Line Location: DISP2+2
Function Call: WRITE
  • Prompt: !,GMRAALL,?60,$P("NO^YES","^",1+$P(GMRATEMP,U,16)),?70,$S($P(GMRATEMP,U,6)="h":"HIST",$P(GMRATEMP,U,6)="o":"OBS",1:"")
  • Line Location: REST+2
Function Call: WRITE
  • Prompt: !,?5,"Reactions: "
  • Line Location: WRITG+1
Function Call: WRITE
  • Prompt: !,?16
  • Line Location: WRITG+2
Function Call: WRITE
  • Prompt: GMRALINE
  • Line Location: WRITG+3
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"Request queued...",1:"Request NOT queued please try later...")
  • Line Location: TASK+2
Routine Call
  • DIC
  • Line Location:
    • EN1+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BEHOAR(90460.06 - [#90460.06] REST+6
^GMR(120.8 - [#120.8] EN2+4, EN2A, REST+2, REST+3, REST+9, REST+11, REST+12, INACTIVE+3, INACTIVE+4, INACTIVE+5
^GMR(120.86 - [#120.86] EN3+6, EN2+3
^GMRD(120.83 - [#120.83] REST+9, REST+13
^TMP($J EN2A+6*, DISP+3, DISP+4, DISP2+3, EXIT+3!

Label References

Name Line Occurrences
$$INACTIVE EN2A+3
DISP EN2+5
DISP2 DISP+4
EN1 EN3+6
EN2A EN2+4
EXIT EN1+2, EN3+7, EN3+8, DISP+5
REST DISP2+3
TASK EN3+8
WRITG REST+18

Naked Globals

Name Field # of Occurrence
^(0 REST+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CHK EN2A+2~, EN2A+3*, EN2A+4
>> DFN EN1+2*, EN3+6, EN2+3, EN2+4
DIC EN1+2*!
DIC("A" EN1+2*
DIC(0 EN1+2*
DLAYGO EN1+2!
>> GMRAALL DISP+2*, DISP2+3*, REST+2
>> GMRAFG REST+12*, REST+17
GMRAFG2 REST+10~
>> GMRAFLG REST+9*, WRITG+1*
>> GMRAHEAD( EN3+5*
>> GMRAHEAD(1 EN3+2*
>> GMRAHEAD(2 EN3+1*
>> GMRAHEAD(3 EN3+2*
>> GMRAHEAD(4 EN3+3*
>> GMRAHEAD(5 EN3+3*
>> GMRAHEAD(6 EN3+2*
>> GMRAHEAD(7 EN3+2*
>> GMRAKIND EN2A+5*, EN2A+6, DISP+2*, DISP+4*, DISP2+1, DISP2+3
>> GMRALIN EN2+2*, DISP2+2
GMRALINE REST+10~, REST+13*, REST+14*, REST+16*, REST+17*, WRITG+2, WRITG+3
>> GMRANOW EN3+4*, EN3+5
>> GMRAOTH REST+9*, REST+13
>> GMRAOUT EN1+1*, EN1+2*, EN3+7*, EN2+1*, DISP+4, DISP2, DISP2+3, REST+1, REST+4
>> GMRAPG EN2+1*
>> GMRAREAC EN2+5*
>> GMRAREC EN2+4*, EN2A, EN2A+3, EN2A+6
>> GMRARECN DISP+2*, DISP2+3*, REST+2, REST+3, REST+9, REST+11, REST+12
>> GMRASPAC DISP+1*, WRITG+2
>> GMRATEMP EN2A*, EN2A+5, EN2A+6, REST+2*
GMRATON REST+10~, REST+11*, REST+13, REST+14, REST+15
>> GMRATONS DISP+1*
>> GMRATYPE DISP2+1*, DISP2+2
>> GMRAX REST+9*, REST+11, REST+12
GMRAZ REST+10~, REST+15*, REST+16
GMRAZIS EN3+7!
GMRSNO REST+3*, REST+5, REST+6, EXIT+1!
IN INACTIVE+1~, INACTIVE+2*, INACTIVE+6*, INACTIVE+7
INACT INACTIVE+1~, INACTIVE+4*, INACTIVE+6
IO("Q" EN3+8
ION TASK+1
IOSL DISP2, REST+1, REST+4
LP INACTIVE~, INACTIVE+3, INACTIVE+4, INACTIVE+5
>> POP EN3+7
REACT INACTIVE+1~, INACTIVE+5*, INACTIVE+6
SNOCODE REST+6*, REST+8, EXIT+1!
SNOTXT REST+6*, REST+7, EXIT+1!
U EN2+3, REST+2, REST+3, REST+6, REST+13, REST+14, REST+15, INACTIVE+4, INACTIVE+5
VA EN3+1!
VA("PID" EN3+1
>> VADM(1 EN3+1
>> VADM(3 EN3+1
>> VADM(4 EN3+1
X DISP+4*, DISP2+3*, EXIT+3!
Y EN1+2, EXIT+3!
Z EXIT+3!, INACTIVE+1~, INACTIVE+3*, INACTIVE+4, INACTIVE+5
>> ZTDESC TASK+1*
ZTDH TASK+3!
ZTDTH TASK+1*, TASK+3!
>> ZTIO TASK+1*
ZTRTN TASK+1*, TASK+3!
ZTSAVE TASK+3!
ZTSAVE("DFN" TASK+1*
ZTSAVE("GMRA*" TASK+1*
ZTSK TASK+2, TASK+3!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All