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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: GMRGED6

Package: General Medical Record - Generator

Routine: GMRGED6


Information

GMRGED6 ;CISC/RM-PATIENT DATA EDIT (cont.) ;4/25/89

Source Information

Source file <GMRGED6.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
General Medical Record - Generator 5 EN1^GMRGED3  JSTCK^GMRGED9  STLST^GMRGRUT0  EN1^GMRGRUT2  EN1^GMRGUTL  
VA Fileman 2 YN^DICN  IX1^DIK  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
General Medical Record - Generator 4 GMRGED2  GMRGED7  GMRGED9  GMRGRUT3  

Entry Points

Name Comments DBIA/ICR reference
PRCTRM ;
STUT ;
YNIP
INTXED ;
INTERNAL ; EDIT INTERNAL TEXT FOR THE SELECTED ENTRY.
INTP ;
ADS ;
DELETE ;
INTX0 ;
INTX1

External References

Name Field # of Occurrence
YN^DICN YNIP
IX1^DIK PRCTRM+3
EN1^GMRGED3 INTX0+1
JSTCK^GMRGED9 STUT+1
STLST^GMRGRUT0 PRCTRM+2
EN1^GMRGRUT2 INTP+1
EN1^GMRGUTL INTERNAL+4, DELETE+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"INTERNAL TEXT for '"
  • Line Location: INTP+1
Function Call: WRITE
  • Prompt: "'"
  • Line Location: INTP+1
Function Call: WRITE
  • Prompt: !
  • Line Location: INTX0+1
Function Call: WRITE
  • Prompt: !,"Internal Text Number ",GMRG10,": ",$S($L(GMRGTX(0)):GMRGTX(0)_"// ",1:"")
  • Line Location: INTX0+2
Function Call: WRITE
  • Prompt: !?4,$C(7),"WANT TO DELETE"
  • Line Location: YNIP+0
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Condition for execution: %=2
  • Line Location: YNIP+0
Function Call: WRITE
  • Prompt: !?8,$C(7),"Answer Yes if you want to delete the appended text, else answer No.",!!?8,"NOTE: If you delete bracketed text, the original default will become",!?8,"the new value."
  • Line Location: YNIP+1
Function Call: WRITE
  • Prompt: !,?4,$C(7),"LINE TOO LONG??"
  • Line Location: INTX1+0
Function Call: WRITE
  • Prompt: !?4,$C(7),$S(GMRGTX(0)?1"?".E:"ANSWER WITH FREE TEXT",1:"ANSWER CANNOT CONTAIN THE CIRCUMFLEX '^' CHARACTER")
  • Line Location: INTX1+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(124.31 ADS+1, ADS+2
^GMR(124.3 - [#124.3] INTERNAL+4*, PRCTRM+3, PRCTRM+4, ADS+2*
^GMRD(124.2 - [#124.2] DELETE+3, ADS+3
^GMRD(124.4 STUT+2
^TMP($J INTERNAL+5*, STUT+3*, STUT+4*

Label References

Name Line Occurrences
ADS PRCTRM+4
INTP INTERNAL+2
INTX0 YNIP+1, INTX1, INTX1+1
INTX1 INTX0+1, INTX0+3, YNIP+1
INTXED INTP+2
YNIP YNIP+1

Naked Globals

Name Field # of Occurrence
^( PRCTRM+3*
^(0 STUT+2
^(1 ADS+2
^(2 ADS+1
^(8 DELETE+3, ADS+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % YNIP*, YNIP+1
DA INTERNAL+4*, DELETE+1*!, PRCTRM+1!*, PRCTRM+3, PRCTRM+4, ADS+2
DA(1 INTERNAL+4*, DELETE+1*, PRCTRM+1*, PRCTRM+3, PRCTRM+4, ADS+2
>> DIK PRCTRM+3*
DTIME INTX0+2
>> GMRG0 STUT+1, STUT+2, STUT+3, STUT+4
>> GMRG1 ADS+1*, ADS+2*
>> GMRG10 INTP+2*, INTXED+1, INTXED+2, INTX0+2, INTX1
>> GMRG2 STUT+3, STUT+4
>> GMRG3 STUT+2*, STUT+3
>> GMRGART DELETE+3*, ADS+3*
GMRGAT INTERNAL+4*!
GMRGDFLG DELETE+1*, DELETE+3!
>> GMRGLVL INTERNAL+5, STUT+3, STUT+4
>> GMRGND PRCTRM+2*
>> GMRGND(0 PRCTRM+2*
>> GMRGOUT INTERNAL+4, INTERNAL+5, INTP+2, INTX0+3*, YNIP*, DELETE+3
>> GMRGPDA INTERNAL+4, DELETE+1, PRCTRM+1, PRCTRM+2
>> GMRGPRC INTERNAL+1, DELETE+1, DELETE+3, STUT+2
>> GMRGPRC(0 INTERNAL+1, INTERNAL+3, INTERNAL+4*, INTERNAL+5, INTP+1, INTP+2, INTXED+1, DELETE+1
>> GMRGRT PRCTRM+1
>> GMRGSEL( STUT+2, STUT+3, STUT+4
>> GMRGSLVL INTERNAL+5
>> GMRGTERM STUT+3, PRCTRM+1, PRCTRM+2, PRCTRM+3, ADS+3
>> GMRGTLVL INTERNAL+5, STUT+3, STUT+4
>> GMRGTPLT STUT+2
>> GMRGTX INTERNAL+1*, INTERNAL+3*, INTERNAL+4, INTERNAL+5, INTP+2*, INTXED+2, INTX1
>> GMRGTX("@" INTX0+1*
>> GMRGTX("ACTION" INTERNAL+1*, INTERNAL+2, INTERNAL+3
>> GMRGTX("DEF" INTXED+1*, INTXED+2, INTX0+1
>> GMRGTX("OL" INTERNAL+1*, INTERNAL+4, INTERNAL+5
>> GMRGTX("OLD" INTXED+2*, INTX0+3, YNIP, INTX1, INTX1+1
>> GMRGTX(0 INTP+2, INTXED+2*, INTX0+1*, INTX0+2*, INTX0+3*, YNIP*, INTX1*, INTX1+1*
>> GMRGTX(1 INTX0+1*
>> GMRGUSL( STUT+3
>> GMRGXPRT INTP+1*
>> GMRGXPRT(0 INTP+1*
>> GMRGXPRT(1 INTP+1*
>> GMRGY INTERNAL+4*, DELETE+2*
GMRGZ INTERNAL+4*!
IOM INTP+1
>> X INTERNAL+3*, INTERNAL+4*, INTXED+1*, DELETE+1*, ADS+1*, ADS+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All