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 |  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: GMRGEDA

Package: General Medical Record - Generator

Routine: GMRGEDA


Information

GMRGEDA ;CISC/RM-PATIENT DATA EDIT (cont.) ;5/28/92

Source Information

Source file <GMRGEDA.m>

Call Graph

Call Graph Total: 1

Package Total Call Graph
VA Fileman 1 IX^DIC  

Entry Points

Name Comments DBIA/ICR reference
RECPAT ;
SELPAT ;
KEEP
JUMP ;
CHC ;
LPTH ;
PICK
PATH ; CALCULATE ALL PATHS
SETSLP ;

External References

Name Field # of Occurrence
IX^DIC JUMP+1

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: JUMP+2
Function Call: WRITE
  • Prompt: !!,"Because '",$P(Y(0),"^"),"' is not part of the",!,"patient data, it must be ""linked"" in via a pathway.",!,"The following list will be a list of pathways to choose from.",!,"To continue with this jump, you must pick a pathway."
  • Line Location: JUMP+4
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: JUMP+5
Function Call: WRITE
  • Prompt: !!,"...Excuse me while I perform some necessary calculations..."
  • Line Location: JUMP+6
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: JUMP+7
Function Call: WRITE
  • Prompt: !,$J(GMRGLIST,3),". ",$S($D(^GMRD(124.2,+GMRG0(1),0)):$P(^(0),"^"),1:"")
  • Line Location: SELPAT+4
Function Call: WRITE
  • Prompt: !?(GMRG0(2)+2*2+1),$S($D(^GMRD(124.2,+$P(GMRG0(0),"^",GMRG0(2)),0)):$P(^(0),"^"),1:"")
  • Line Location: SELPAT+4
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: PICK+0
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: X=""
  • Line Location: PICK+0
Function Call: WRITE
  • Prompt: !?4,$C(7),"ENTER A VALID NUMBER BETWEEN 1 AND ",GMRGLIST
  • Line Location: PICK+2
Function Call: WRITE
  • Prompt: !!!
  • Line Location: CHC+1
Function Call: WRITE
  • Prompt: ?15,$S($D(^GMRD(124.2,+Z,0)):$P(^(0),"^"),1:""),!
  • Line Location: CHC+3
Function Call: WRITE
  • Prompt: !,"The term you wish to jump to can be reached from multiple paths.",!,"Please choose the number (1-"_GMRGLIST_") of the corresponding path you wish to use: "
  • Line Location: CHC+5
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: CHC+6
Function Call: WRITE
  • Prompt: !?3,$C(7),"PLEASE CHOOSE A NUMBER BETWEEN 1 AND ",GMRGLIST
  • Line Location: CHC+6
Routine Call
  • DIC
  • Line Location:
    • JUMP+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMRD(124.2 - [#124.2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("XY" JUMP+1
^GMR(124.3 - [#124.3] JUMP+3, RECPAT+1, SETSLP+2
^GMRD(124.2 - [#124.2] PATH+1, SELPAT+4, SETSLP+2, CHC+2, CHC+3
^TMP($J JUMP+8, JUMP+9, KEEP!, RECPAT+1*, LPTH+1, SELPAT+1, SELPAT+3*!, PICK+1

Label References

Name Line Occurrences
CHC SETSLP+4, CHC+6
KEEP JUMP+3, JUMP+7
LPTH JUMP+8
PATH JUMP+6, RECPAT+3
PICK JUMP+9, SELPAT+2, PICK+3
RECPAT PATH+1
SELPAT LPTH+1
SETSLP JUMP+3

Naked Globals

Name Field # of Occurrence
^( JUMP+9, PATH+1, SELPAT+1, SETSLP+2, CHC+3
^(0 SELPAT+4, CHC+2, CHC+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> D JUMP+1*
DIC JUMP+1*!
DIC("S" JUMP+1*
DIC(0 JUMP+1*
DTIME JUMP+2, JUMP+5, JUMP+7, PICK, CHC+6
>> DTOUT JUMP+2
>> DUOUT JUMP+2
>> DX JUMP+1*
>> DY JUMP+1*
>> GMRG0 JUMP+6*, PATH+1, PATH+2*, RECPAT+2*, LPTH+1*, SELPAT+1, SELPAT+3
>> GMRG0( PATH+1, PATH+2, RECPAT+2*
>> GMRG0(0 JUMP+6*, SELPAT+1*, SELPAT+2, SELPAT+3, SELPAT+4
>> GMRG0(1 LPTH+1*, SELPAT+1, SELPAT+3, SELPAT+4
>> GMRG0(2 SELPAT+4*
>> GMRG1 JUMP+8*, PATH+1*, PATH+2*, RECPAT+1, RECPAT+2, LPTH+1, SELPAT+1, SELPAT+3
>> GMRG3 JUMP+9, PICK*
>> GMRGLIST JUMP+8*, SELPAT+3*, SELPAT+4, PICK, PICK+2, SETSLP+2*, SETSLP+3, SETSLP+4, SETSLP+5*, SETSLP+6
, CHC+5, CHC+6*, CHC+7*
>> GMRGLIST( SETSLP+2*, CHC+2, CHC+7
>> GMRGLIST(1 SETSLP+5
>> GMRGOUT JUMP+2*, JUMP+5*, JUMP+7*, JUMP+8, JUMP+9*, KEEP, LPTH+1, SELPAT+2, PICK*, SETSLP+4
, CHC+6*
GMRGPATH JUMP+6!*, JUMP+7, RECPAT+1*
GMRGPATH(0 JUMP+6*, PATH+2*, RECPAT+1, RECPAT+2*
>> GMRGPDA JUMP+3, RECPAT+1, SETSLP+2
>> GMRGRT RECPAT+1, SETSLP+1
>> GMRGS JUMP+1
>> GMRGSELP JUMP+6*, JUMP+8, JUMP+9*, KEEP, LPTH+1, SELPAT+2, PICK+1*, SETSLP+1*, SETSLP+3*, SETSLP+4*
, SETSLP+6*
>> GMRGUSL( KEEP*
IOF JUMP+8, PICK
IOM JUMP+1
IOSL SELPAT+2
>> X JUMP+1*, JUMP+2*, JUMP+5*, JUMP+7*, PICK*, PICK+1, SETSLP+2*, CHC+2*, CHC+6*, CHC+7
>> Y JUMP+2, JUMP+3, JUMP+6, KEEP, SETSLP+1, SETSLP+2, SETSLP+6
>> Y(0 JUMP+4
>> Z CHC+2*, CHC+3
Info |  Source |  Call 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