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

Package: General Medical Record - Generator

Routine: GMRGTGI2


Information

GMRGTGI2 ;CISC/RM,RTK-PRIME DOCUMENT EDIT (cont.) ;8/23/93

Source Information

Source file <GMRGTGI2.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
General Medical Record - Generator 4 EN1^GMRGED3  (CHK,INFOSET)^GMRGTGI0  (DOWN,UP)^GMRGTGI1  EN2^GMRGTGIF  
VA FileMan 4 ^DIC  (FILE,YN)^DICN  ^DIE  ^DIK  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
General Medical Record - Generator 1 GMRGTGIF  

Entry Points

Name Comments DBIA/ICR reference
EN1 ; ENTRY FROM CHOOSING WHETHER TO EDIT THE TERM, EDIT THE SELECTION
; ADD A SELECTION OR DELETE A SELECTION.
; Y=$S(#:EDIT SEL.,"T"!"t":EDIT TERM,"A"!"a":ADD,#_@:DELETE)
TERM ; EDIT THE ENTRY
SEL ; EDIT THE SELETION
B
ADD ; ADD SELECTIONS
YNOK
DELETE ; DELETE SELECTIONS
STDLFL
RSINAR
DISPLAY ;

External References

Name Field # of Occurrence
^DIC TERM+8, ADD+4, YNOK+1
FILE^DICN YNOK+5
YN^DICN YNOK
^DIE TERM+5, TERM+7, YNOK+4, STDLFL, DISPLAY+1
^DIK DELETE+2
EN1^GMRGED3 TERM+3
CHK^GMRGTGI0 TERM+5
INFOSET^GMRGTGI0 TERM+8, YNOK+6, RSINAR, DISPLAY+2
DOWN^GMRGTGI1 SEL+1
UP^GMRGTGI1 B
EN2^GMRGTGIF B

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$C(7),"NO SELECTIONS!!"
  • Line Location: EN1+3
Function Call: WRITE
  • Prompt: !?3,$C(7),"CHOOSE A NUMBER IN THE SELECTION LIST ABOVE PLEASE"
  • Line Location: EN1+4
Function Call: WRITE
  • Prompt: !,"NAME: ",$P(GMRGINFO("TEXT"),U),"// (UNEDITABLE)"
  • Line Location: TERM+1
Function Call: WRITE
  • Prompt: !?3,$C(7),$S(X="@":"CANNOT DELETE",1:"Answer must free text 3-60 characters")
  • Line Location: TERM+4
Function Call: WRITE
  • Prompt: !,".changing '",$P(GMRGINFO("TEXT"),"^"),"' to '",GMRGT,"'"
  • Line Location: TERM+5
Function Call: WRITE
  • Prompt: !!?3,$C(7),"You cannot add selections to an aggregate term which is of type 'TERM'"
  • Line Location: ADD+1
Function Call: WRITE
  • Prompt: !?3,"If you want to add selections for this term, then first edit the TYPE",!?3,"of this term and change it to something other than 'TERM'."
  • Line Location: ADD+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ADD+3
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: ADD+6
Function Call: WRITE
  • Prompt: !?5,"Answer Yes if this is the record you meant to select, else answer No."
  • Line Location: YNOK+0
Function Call: WRITE
  • Prompt: "."
  • Line Location: YNOK+2
Function Call: WRITE
  • Prompt: !?3,$C(7),"Could not add this term to the selection list??"
  • Line Location: YNOK+5
Function Call: WRITE
  • Prompt: "added"
  • Line Location: YNOK+6
Function Call: WRITE
  • Prompt: "."
  • Line Location: RSINAR+0
Function Call: WRITE
  • Prompt: "deleted"
  • Line Location: RSINAR+0
Function Call: WRITE
  • Prompt: !!?3,$P(GMRGINFO("SEL",+Y),"^",3)
  • Line Location: DISPLAY+1
Routine Call
  • DIC
  • Line Location:
    • TERM+8
    • ADD+4
    • YNOK+1
Routine Call
  • DIE
  • Line Location:
    • TERM+5
    • TERM+7
    • YNOK+4
    • STDLFL
    • DISPLAY+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" ADD+3
^GMRD(124.2 - [#124.2] YNOK+2, YNOK+3

Label References

Name Line Occurrences
ADD EN1+5, ADD+5, ADD+6, YNOK+1, YNOK+5
B B+1
DELETE EN1+5
DISPLAY EN1+5
RSINAR DELETE+2
SEL EN1+5
STDLFL DELETE+1
TERM EN1+5, TERM+2
YNOK YNOK

Naked Globals

Name Field # of Occurrence
^(0 YNOK+2*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % YNOK*
>> D0 YNOK+5*
>> DA TERM+5*, TERM+7*, TERM+8, YNOK+4*, DELETE+2*, STDLFL*, DISPLAY+1*
>> DA(1 YNOK+4*, YNOK+5*, YNOK+6, DELETE+2*, STDLFL*, RSINAR, DISPLAY+1*
DD YNOK+5!
DIC TERM+7!, TERM+8*, ADD+4*, ADD+5!, YNOK+1*!, YNOK+5*!
DIC("DR" YNOK+1*
DIC("S" ADD+4*
DIC(0 TERM+8*, ADD+4*, YNOK+1*, YNOK+5*
>> DIE TERM+5*, TERM+7*, TERM+8, YNOK+4*, STDLFL*, DISPLAY+1*
>> DIK DELETE+2*
DLAYGO YNOK+1*!, YNOK+5*!
>> DR TERM+5*, TERM+7*, YNOK+4*, STDLFL*, DISPLAY+1*
DTIME ADD+3
>> DX ADD+3*
>> DY ADD+3*
>> GMRGDUP TERM+5
GMRGINFO TERM+5, TERM+7, TERM+8!*, YNOK+2, YNOK+3, YNOK+4, YNOK+5, YNOK+6!*, DELETE+2, STDLFL
, RSINAR!*, DISPLAY+1, DISPLAY+2!*
GMRGINFO("CLAS" TERM+1
GMRGINFO("SEL" EN1+3, EN1+4, SEL+1, DELETE+2, STDLFL, DISPLAY+1
GMRGINFO("TEXT" TERM+1, TERM+3, TERM+5
GMRGINFO("TYPE" ADD+1
>> GMRGOUT TERM+2, TERM+3*, TERM+5, SEL+1, B+1, ADD+3*, YNOK*, DISPLAY+1*
>> GMRGPK DELETE+1
GMRGRASK TERM+2!, TERM+3!, TERM+4*, TERM+5*
>> GMRGRT(0 DELETE+1
>> GMRGSEL SEL+1*
>> GMRGT TERM+5*
>> GMRGTX("@" TERM+3*
>> GMRGTX(0 TERM+3*
>> GMRGTX(1 TERM+3*
>> GMRGUP B*
>> GMRGX ADD+3*, YNOK*, YNOK+1
>> GMRGZ YNOK+3*, YNOK+4, YNOK+5
>> GMRGZ(0 YNOK+3*
>> I ADD+5*
>> I(0 ADD+5*
U TERM+1
>> X TERM+3*, TERM+4, TERM+5, TERM+8*, ADD+3*, ADD+5*, ADD+6, YNOK, YNOK+1*, YNOK+5*
>> Y EN1+3, EN1+4, EN1+5, TERM+5, TERM+8, SEL+1, YNOK*, YNOK+1, YNOK+3, YNOK+5
, DELETE+2, STDLFL, DISPLAY+1, DISPLAY+2*
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