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

Package: General Medical Record - Generator

Routine: GMRGTGI0


Information

GMRGTGI0 ;CISC/RM-PRIME DOCUMENT EDIT (cont.) ;1/9/89

Source Information

Source file <GMRGTGI0.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 3 ^DIC  (FILE,YN)^DICN  ^DIK  
General Medical Record - Generator 1 FNDPRM^GMRGRUT0  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
General Medical Record - Generator 3 GMRGTGI1  GMRGTGI2  GMRGTGIF  

Entry Points

Name Comments DBIA/ICR reference
DUPRO ;
DF ;
CHK ; CHECK FOR DUPLICATE .01 FIELD, IF THE SAME SET GMRGOUT=1
DUPYN
DUPFND ;
DUPOK
CHDUP ;
INFOSET ; FOR AN AGGY TERM WITH ENTRY OF GMRGINFO, WILL SET GMRGINFO ARRAY
SETSEL ;

External References

Name Field # of Occurrence
^DIC CHK+5, CHDUP+2, DUPRO+1
FILE^DICN DUPFND+5
YN^DICN DUPOK, DUPYN
^DIK DUPFND+5
FNDPRM^GMRGRUT0 DUPFND+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$C(7),"By changing '"_$P(GMRGINFO("TEXT"),"^")_"' to '"_GMRGT_"'",!,"you may have created a duplicate term."
  • Line Location: CHK+6
Function Call: WRITE
  • Prompt: !,"Would you like to look at the list of possible duplicates"
  • Line Location: DUPOK+0
Function Call: WRITE
  • Prompt: !?3,$C(7),"Answer 'YES' if you think you may want to use one of the duplicates",!?3,"instead of this term, answer 'NO' if you want to change the text of",!?3,"the term you are presently editing."
  • Line Location: DUPOK+1
Function Call: WRITE
  • Prompt: " If you meant to use one of the ",!,"following selections instead enter the appropriate number, else press '^'.",!
  • Line Location: CHDUP+1
Function Call: WRITE
  • Prompt: !!,GMRGT
  • Line Location: DUPRO+1
Function Call: WRITE
  • Prompt: !?5,"Answer Yes if you want to use the above selection instead of creating",!?5,"a duplicate, answer No if you want to create a duplicate."
  • Line Location: DUPYN+1
Function Call: WRITE
  • Prompt: !?5,$C(7),"ADDING THIS TERM WOULD CREATE AN INVALID DATA CONDITION, CANNOT ADD!!"
  • Line Location: DUPFND+2
Function Call: WRITE
  • Prompt: !,".replacing '",$P(GMRGINFO("TEXT"),"^"),"' with '",Y(0,0),"'."
  • Line Location: DUPFND+3
Function Call: WRITE
  • Prompt: "."
  • Line Location: DUPFND+4
Function Call: WRITE
  • Prompt: "."
  • Line Location: DUPFND+5
Function Call: WRITE
  • Prompt: "."
  • Line Location: DUPFND+5
Function Call: WRITE
  • Prompt: "."
  • Line Location: DUPFND+5
Routine Call
  • DIC
  • Line Location:
    • CHK+5
    • CHDUP+2
    • DUPRO+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" CHDUP+2, DUPRO+1
^GMRD(124.2 - [#124.2] CHK+1, CHK+3, DUPFND+4, DF+1, INFOSET+1, INFOSET+4, INFOSET+5, INFOSET+6, SETSEL+1
^GMRD(124.25 - [#124.25] INFOSET+2
^TMP($J DUPFND+1

Label References

Name Line Occurrences
DF CHK+3
DUPFND CHDUP+4
DUPOK DUPOK+1
DUPRO DUPOK+2
DUPYN DUPYN+1
INFOSET DUPFND+5
SETSEL INFOSET+6

Naked Globals

Name Field # of Occurrence
^( DUPFND+1
^(0 DF+1, INFOSET+1, INFOSET+2, INFOSET+6, SETSEL+1
^(4 INFOSET+4
^(5 INFOSET+4
^(7 INFOSET+4
^(8 INFOSET+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DUPOK*, DUPOK+1, DUPYN*, DUPYN+1
>> DA DUPFND+5*
>> DA(1 DUPFND+5*
DD DUPFND+5!
DIC CHK+5*!, CHDUP+2*, DUPRO+1*, DUPFND+5*
DIC("S" CHK+5*, CHDUP+2*, DUPRO+1*
DIC(0 CHK+5*, CHDUP+2*, DUPRO+1*, DUPFND+5*
>> DIK DUPFND+5*
>> DINUM DUPFND+5*
>> DTOUT CHDUP+2
>> DX CHDUP+2*, DUPRO+1*
>> DY CHDUP+2*, DUPRO+1*
>> GMRGANW DUPFND+3*, DUPFND+5
GMRGCYC DUPFND+2*!
GMRGCYC(0 DUPFND+2*
>> GMRGDOL DUPFND+4*, DUPFND+5
>> GMRGDUP CHK+1*, CHK+3, CHK+4, CHK+5*, DUPOK*, DUPOK+2, CHDUP+3*, DUPYN*, DF+1*
GMRGINFO CHK+1, DUPFND+4, DUPFND+5!*, DF+1, INFOSET+1, INFOSET+4, INFOSET+5, INFOSET+6, SETSEL+1
GMRGINFO("ACTF" INFOSET+5*
GMRGINFO("ACTS" INFOSET+4*
GMRGINFO("ADD" INFOSET+3*
GMRGINFO("CLAS" CHK+1, INFOSET+2*
GMRGINFO("FORM" INFOSET+2*
GMRGINFO("LEAD" INFOSET+4*
GMRGINFO("MAX" INFOSET+2*
GMRGINFO("MIN" INFOSET+2*
GMRGINFO("PACK" INFOSET+1*
GMRGINFO("SEL" INFOSET+7*, SETSEL+1*
GMRGINFO("SMES" INFOSET+3*
GMRGINFO("SPLIT" INFOSET+3*
GMRGINFO("TEXT" CHK+6, DUPFND+3, INFOSET+1*
GMRGINFO("TRAIL" INFOSET+4*
GMRGINFO("TTOP" INFOSET+3*
GMRGINFO("TYPE" DF+1, INFOSET+1*
>> GMRGLEVL DUPFND+1
>> GMRGND DUPFND+2*
>> GMRGNUP DUPFND+1*, DUPFND+2, DUPFND+4, DUPFND+5
>> GMRGOUT DUPOK*, CHDUP+2*, DUPYN*
>> GMRGT CHK+1, CHK+2, CHK+3, CHK+5, CHK+6, CHDUP+2, DUPRO+1
>> GMRGX CHK+2*, CHK+3*, INFOSET+1*, INFOSET+2, INFOSET+3, INFOSET+5*, INFOSET+7, SETSEL+1*
>> GMRGX(0 CHK+3*, DF+1
>> GMRGY INFOSET+5*, INFOSET+6*
>> GMRGY(0 INFOSET+6*, SETSEL+1
>> GMRGY(1 INFOSET+6*
>> GMRGZ SETSEL+1*
>> GMRGZ(0 SETSEL+1*
>> X CHK+1*, CHK+3*, CHK+5*, CHDUP+2*, DUPRO+1*, DUPFND+5*
>> Y CHK+5, CHDUP+3, DUPFND+2, DUPFND+3, DUPFND+5
>> Y(0 DUPFND+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