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

Package: General Medical Record - Generator

Routine: GMRGED5


Information

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

Source Information

Source file <GMRGED5.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
General Medical Record - Generator 3 EN1^GMRGED3  EN1^GMRGRUT2  EN1^GMRGUTL  
VA Fileman 1 YN^DICN  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
General Medical Record - Generator 2 GMRGED2  GMRGED9  

Entry Points

Name Comments DBIA/ICR reference
EDTX
APTX0
STDAT
APTXED ;
APPR ;
ADDITION ;
APPEND ; EDIT APPENDED TEXT FOR THE SELECTED ENTRY.
YNAT
YNAP
SAT

External References

Name Field # of Occurrence
YN^DICN YNAP, YNAT
EN1^GMRGED3 APTXED+1, EDTX+1
EN1^GMRGRUT2 APPR+1, EDTX
EN1^GMRGUTL SAT, STDAT+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"APPENDED TEXT for '"
  • Line Location: APPR+1
Function Call: WRITE
  • Prompt: "'"
  • Line Location: APPR+1
Function Call: WRITE
  • Prompt: !
  • Line Location: APTXED+1
Function Call: READ
  • Timeout: DTIME
  • Variable: GMRGTX(0)
  • Line Location: APTXED+2
Function Call: WRITE
  • Prompt: !,"Appended Text: ",$S($L(GMRGTX(0)):GMRGTX(0)_"// ",1:"")
  • Line Location: APTXED+2
Function Call: WRITE
  • Prompt: !?4,$C(7),"WANT TO DELETE"
  • Line Location: YNAP+0
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Condition for execution: %=2
  • Line Location: YNAP+0
Function Call: WRITE
  • Prompt: !?8,$C(7),"Answer Yes if you want to delete the appended text, else answer No"
  • Line Location: YNAP+1
Function Call: WRITE
  • Prompt: !?4,$C(7),"LINE TOO LONG??"
  • Line Location: APTX0+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: APTX0+1
Function Call: READ
  • Prompt: "Press return to continue "
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • Line Location: ADDITION+1
Function Call: WRITE
  • Prompt: !!,"ADDITIONAL TEXT",!,$E(GMRGLIN("*"),1,15)
  • Line Location: ADDITION+2
Function Call: WRITE
  • Prompt: !!,"Additional Text for "
  • Line Location: EDTX+0
Function Call: READ
  • Timeout: DTIME
  • Variable: GMRGTX
  • Line Location: EDTX+2
Function Call: WRITE
  • Prompt: ": ",$S($L(GMRGTX):GMRGTX_"// ",1:"")
  • Line Location: EDTX+2
Function Call: WRITE
  • Prompt: !?4,$C(7),"WANT TO DELETE"
  • Line Location: YNAT+0
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Condition for execution: %=2
  • Line Location: YNAT+0
Function Call: WRITE
  • Prompt: !?6,$C(7),"Answer Yes if you wish to delete the additional text, else answer No."
  • Line Location: YNAT+1
Function Call: WRITE
  • Prompt: !,$C(7),"ANSWER MUST BE 1-245 CHARACTERS IN LENGTH"
  • Line Location: STDAT+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMR(124.3 - [#124.3] SAT*, ADDITION+3, EDTX, STDAT+1*
^TMP($J SAT+1*

Label References

Name Line Occurrences
APPR APPEND+2
APTX0 APTXED+1, APTXED+2, YNAP+1
APTXED APPR+2, YNAP+1, APTX0, APTX0+1
EDTX YNAT+1, STDAT
STDAT EDTX+1, EDTX+2, YNAT+1
YNAP YNAP+1
YNAT YNAT+1

Naked Globals

Name Field # of Occurrence
^("ADD" ADDITION+3
^(0 EDTX

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % YNAP*, YNAP+1, YNAT*, YNAT+1
>> DA SAT*, STDAT+1*
>> DA(1 SAT*, STDAT+1*
DTIME APTXED+2, ADDITION+1, EDTX+2
GMRGAT SAT*!, STDAT+1*
>> GMRGLIN("*" ADDITION+2
>> GMRGLVL SAT+1
>> GMRGOUT SAT, SAT+1, APTXED+2*, YNAP*, ADDITION+1*, EDTX+2*, YNAT*
>> GMRGPDA SAT, ADDITION+3, EDTX, STDAT+1
>> GMRGPRC APPEND+1, ADDITION+3, EDTX, STDAT+1
>> GMRGPRC(0 APPEND+1, SAT*, SAT+1, APPR+1
>> GMRGSLVL SAT+1
>> GMRGTERM(0 ADDITION+1
>> GMRGTLVL SAT+1
>> GMRGTX APPEND+1*, APPEND+3*, SAT, SAT+1, APPR+2*, APTX0, ADDITION+3*, EDTX+1*, EDTX+2*, YNAT*
, STDAT*, STDAT+1
>> GMRGTX("@" APTXED+1*, EDTX+1*
>> GMRGTX("ACTION" APPEND+1*, APPEND+2, APPEND+3
>> GMRGTX("OL" APPEND+1*, SAT, SAT+1, ADDITION+3*, EDTX+2, YNAT, STDAT, STDAT+1
>> GMRGTX("OLD" APPR+2*, APTXED+2, YNAP, APTX0, APTX0+1
>> GMRGTX(0 APPR+2*, APTXED+1, APTXED+2*, YNAP*, APTX0*, APTX0+1*, EDTX+1*
>> GMRGTX(1 APTXED+1*, EDTX+1*
>> GMRGXPRT APPR+1*, EDTX*
>> GMRGXPRT(0 APPR+1*, EDTX*
>> GMRGXPRT(1 APPR+1*, EDTX*
>> GMRGY SAT*, STDAT+1*
GMRGZ SAT*!, STDAT+1*
IOM APPR+1, EDTX
>> X SAT*, ADDITION+1*, STDAT+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All