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 |  Local Variables |  All
Print Page as PDF
Routine: GMRAVAM0

Package: Adverse Reaction Tracking

Routine: GMRAVAM0


Information

GMRAVAM0 ;HIRMFO/YMP,WAA,RM-DRIVER FOR VERIFIER ;7/30/04 14:42

Source Information

Source file <GMRAVAM0.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Adverse Reaction Tracking 3 EN1^GMRAPET0  EN1^GMRAPEV0  ($$LOCK,SITE,UNLOCK)^GMRAUTL  
Registration 2 (1,KVAR)^VADPT  PID^VADPT6  
VA Fileman 2 ^DIC  ^DIR  
Kernel 1 KILL^XUSCLEAN  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Adverse Reaction Tracking 1 GMRA PATIENT A/AR VERIFY  

Entry Points

Name Comments DBIA/ICR reference
SELL
ALLERPR ;
SCREEN
NOVER ;
WRITE
EN1 ; Entry for VERIFY PATIENT REACTION DATA option
EN2 ;Select the type of Agent to verify
EXIT ;
VERPT ; Loop through all Patient GMRADFN's data to be verified and save
; in ^TMP("GMRAV",$J array.
FF ;
SELT ;SELECT THE REACTIONS
ARRAY
SEL ;
DISPLAY ;
SELECT

External References

Name Field # of Occurrence
^DIC EN2+6
^DIR EN2+3, EN2+17, SEL+4
EN1^GMRAPET0 SELT+8
EN1^GMRAPEV0 SELT+7
$$LOCK^GMRAUTL SELT+6
SITE^GMRAUTL SELT+7
UNLOCK^GMRAUTL SELT+11
1^VADPT SELT+4, WRITE+1
KVAR^VADPT SELT+4, WRITE+2
PID^VADPT6 WRITE+1
KILL^XUSCLEAN EXIT+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?20,$E(I,1),?23,I
  • Line Location: EN2+12
Function Call: WRITE
  • Prompt: !,$C(7),"There isn't any ",$S(GMRAFLAG=1:"drug ",GMRAFLAG=0:"non-drug ",1:""),"allergy data to verify.",!
  • Line Location: EN2+24
Function Call: WRITE
  • Prompt: !,?66,"OBS/"
  • Line Location: DISPLAY+4
Function Call: WRITE
  • Prompt: !,?4,"PATIENT",?41,"ALLERGY",?66,"HIST",?71,"ADR",?75,"TYPE"
  • Line Location: DISPLAY+5
Function Call: WRITE
  • Prompt: !,?4,"-------",?41,"-------",?66,"----",?71,"---",?75,"----",!
  • Line Location: DISPLAY+6
Function Call: WRITE
  • Prompt: !,$J(CX,2),".",?4,$E(GMRANAME,1,20)," (",GMRASSN,") ",$E(GMRALOC,1,8),?41,$E(GMRALLER,1,23),?66
  • Line Location: WRITE+3
Function Call: WRITE
  • Prompt: $S($P(GMRAG,"^",6)="o":"OBS",$P(GMRAG,"^",6)="h":"HIST",1:""),?71,$S($P(GMRAG,"^",14)="A":"NO",$P(GMRAG,"^",14)="P":"YES",1:"UNK")
  • Line Location: WRITE+4
Function Call: WRITE
  • Prompt: ?75
  • Line Location: WRITE+5
Function Call: WRITE
  • Prompt: !,?75
  • Condition for execution: X>1
  • Line Location: WRITE+8
Function Call: WRITE
  • Prompt: $P("^FOOD^DRUG^OTHER","^",$F("FDO",$E(GMRAY,X)))
  • Line Location: WRITE+8
Function Call: WRITE
  • Prompt: !,"TYPE '^' TO STOP OR"
  • Line Location: SCREEN+0
Function Call: WRITE
  • Prompt: !?4,$C(7),"ANSWER WITH A NUMBER BETWEEN 1 AND ",CX
  • Line Location: SCREEN+4
Function Call: WRITE
  • Prompt: !,"ERROR INVALID SELECTION"
  • Line Location: SEL+8
Function Call: WRITE
  • Prompt: !!?5,$C(7),"You do not have the 'GMRA-ALLERGY VERIFY' Security Key."
  • Line Location: NOVER+1
Function Call: WRITE
  • Prompt: #
  • Line Location: FF+1
Routine Call
  • DIC
  • Line Location:
    • EN2+6
Routine Call
  • DIR
  • Line Location:
    • EN2+3
    • EN2+17
    • SEL+4

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] ARRAY+2, SELT+10
^GMR(120.8 - [#120.8] EN2+23, VERPT+2, ARRAY, SELT+7
^GMRD(120.83 - [#120.83] SELT+5
^TMP("GMRA" EN2+21!, SELL+1!, SELT+3, WRITE+10*, SEL+8, EXIT+1!
^TMP("GMRAV" EN2+21!, EN2+24, ARRAY+2*, DISPLAY+2, DISPLAY+7, SELT+10!, ALLERPR+1, WRITE, EXIT+1!
^XUSEC("GMRA-ALLERGY VERIFY" EN1+1

Label References

Name Line Occurrences
ALLERPR DISPLAY+7
ARRAY VERPT+2, SELT+7
DISPLAY EN2+25, SELL+2
EN1 EN2+24
EXIT EN2+3, EN2+5, EN2+17, DISPLAY+1, DISPLAY+2, DISPLAY+8, DISPLAY+9, SELECT, SELECT+1, SELECT+2
FF EN2+11, EN2+20, DISPLAY+3, SELT+1, SCREEN+2
NOVER EN1+1
SCREEN ALLERPR+1, SCREEN+4
SEL SELECT, SCREEN+1
SELL DISPLAY+9
SELT SELL
VERPT EN2+22, EN2+23
WRITE ALLERPR+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ARRAY+1*
>> CX DISPLAY+7*, ALLERPR+1*, WRITE+3, WRITE+10, SCREEN+4, SEL+1, SEL+2
>> DFN SELT+4*, WRITE+1*
DIC EN2+6*, EN2+7!, EN2+9!
DIC(0 EN2+6*
DIR EN2+3!, EN2+13!, EN2+17!, SEL+2!, SEL+4!
DIR("?" EN2+15*, EN2+16*
DIR("A" EN2+2*, EN2+14*, SEL+2*
DIR("B" EN2+3*
DIR(0 EN2+3*, EN2+13*, SEL+2*, SEL+3*
DIRUT EN2+3!
DTOUT EN2+7!
DUOUT EN2+7!
DUZ EN1+1
>> GMRACHK SELT+3*, SELT+4, SELT+5
>> GMRADFN EN2+1*, EN2+8*, EN2+22, EN2+23*, VERPT+2, ARRAY+2, SELT+7*, SELT+8
GMRADIG DISPLAY+3!, DISPLAY+9, ALLERPR+1, SCREEN+5*
>> GMRADRUG ARRAY+1*, ARRAY+2, SELT+5*
>> GMRAER SELL, SCREEN+4, SEL+7*, SEL+8*
>> GMRAERR SELT+9, SELT+10
>> GMRAFLAG EN2+18*, EN2+24, ARRAY+2, SELT+5
>> GMRAG ARRAY*, ARRAY+1, ARRAY+2, WRITE*, WRITE+1, WRITE+4, WRITE+7, WRITE+10
>> GMRALL VERPT+2*, ARRAY, ARRAY+2, SELT+7*
>> GMRALLER DISPLAY+7*, SELT+10*, ALLERPR+1*, WRITE, WRITE+3
>> GMRALOC SELT+4*, WRITE+1*, WRITE+3
>> GMRANAM SELT+4*
>> GMRANAME DISPLAY+7*, SELT+10*, ALLERPR+1, WRITE, WRITE+3
>> GMRANS SELL*, SELT+3
>> GMRAOTH SELT+5*
>> GMRAOUT EN2+1*, EN2+5, EN2+7*, EN2+21*, DISPLAY+1, DISPLAY+7, DISPLAY+8, DISPLAY+9, SELECT, SELECT+2
, SELL, SELT+5*, SELT+8*, SELT+9*, ALLERPR+1, SCREEN+1, SCREEN+3, SEL+6*
>> GMRAPA SELT+5*, SELT+6, SELT+7, SELT+8, SELT+10, SELT+11
>> GMRAPA(0 SELT+5*, SELT+10
>> GMRAREC ALLERPR+1*, WRITE, WRITE+10
>> GMRASEX SELT+4*
>> GMRASSN WRITE+1*, WRITE+3
>> GMRAVEDT SELT+5*
>> GMRAVER SELT+8, SELT+10
GMRAX SEL+7*, SEL+8, SEL+10!
GMRAY SELECT+1, SELL, SELT+2~, WRITE+6~, WRITE+7*, WRITE+8, SCREEN+2, SEL+5*, SEL+6, SEL+7
GMRAZ SELL*, SELT+2~, SEL+7*, SEL+10!
>> I EN2+12*
IOSL ALLERPR+1
U ARRAY+1, SELT+7, SELT+10, WRITE+1
VA SELT+4!, WRITE+2!
VA("BID" WRITE+1
>> VADM(1 SELT+4
>> VADM(5 SELT+4
>> VAIN(4 SELT+4, WRITE+1
VAROOT SELT+4!, WRITE+2!
X WRITE+6~, WRITE+8*
Y EN2+5, EN2+7, EN2+8, EN2+17, EN2+18, EN2+19!, SEL+5!
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 |  Local Variables |  All