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

Package: General Medical Record - Generator

Routine: GMRGPUTL


Information

GMRGPUTL ;HIRMFO/JH,RM-TEXT GENERATOR DATA SORT FOR OUTPUT ;9/1/95

Source Information

Source file <GMRGPUTL.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
General Medical Record - Generator 3 EN1^GMRGPNBL  EN1^GMRGPOUT  (CHECLAS,CHKREQ,PRT1,PRT2)^GMRGPUT0  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Registration 1 (DEM,INP,KVAR)^VADPT  
VA Fileman 1 NOW^%DTC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
General Medical Record - Generator 1 GMRGPRNT  

Entry Points

Name Comments DBIA/ICR reference
Q1
Q3
TASK
MES2
MES1
REPT
DEV
EN1 ;Enter here if classification is not known
EN2 ;Enter here if classification is known GMRGCLS=PTR TO 124.25 FILE.
EN3 ; ENTRY TO RESULTS REPORTING MODULE
PROMP
Q2

External References

Name Field # of Occurrence
NOW^%DTC EN3+2
^%ZIS DEV
^%ZISC DEV, DEV+2
^%ZTLOAD DEV+2
EN1^GMRGPNBL TASK
EN1^GMRGPOUT TASK+3
CHECLAS^GMRGPUT0 REPT+1
CHKREQ^GMRGPUT0 PROMP+1
PRT1^GMRGPUT0 EN1+5
PRT2^GMRGPUT0 EN2+5
DEM^VADPT TASK+2
INP^VADPT TASK+2
KVAR^VADPT TASK+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"NO PRINTABLE DATA"
  • Line Location: EN1+3
Function Call: WRITE
  • Prompt: !!,"The following are groupings of data that can be printed for this",!,"patient's ",$P(GMRGRT,"^",2),".",!
  • Line Location: EN1+4
Function Call: READ
  • Prompt: ": "
  • Timeout: DTIME
  • Variable: GMRGREQ
  • Line Location: REPT+0
Function Call: WRITE
  • Prompt: !?5,$C(7),"Please enter numeric selection or up-arrow to quit.",!,?5,"Format: { 1 } or { 1,2,3,... } or { 2-7 } or { 2,3,7-9 } or { ^ } to quit"
  • Line Location: MES2+0
Function Call: WRITE
  • Prompt: !,"NO PRINTABLE ",$S($D(^GMRD(124.25,GMRGCLS,0)):$P(^(0),"^")_" ",1:""),"DATA"
  • Line Location: EN2+3
Function Call: WRITE
  • Prompt: !!,"Below is a list of ",$S($D(^GMRD(124.25,GMRGCLS,0)):$P(^(0),"^")_" ",1:""),"entries to print",!
  • Line Location: EN2+4
Function Call: READ
  • Prompt: ": "
  • Timeout: DTIME
  • Variable: GMRGREQ
  • Line Location: PROMP+0
Function Call: WRITE
  • Prompt: !?2,$C(7),"Please enter numeric selection or up-arrow to quit.",!,?5,"Format: { 1 } or { 1,2,3,... } or { 2-7 } or { 2,3,7-9 } or { ^ } to Quit"
  • Line Location: MES1+0
Function Call: WRITE
  • Prompt: !!,"This Job may be Queued to print to another device,",!,"freeing your terminal for other use.",!
  • Line Location: MES1+1
Function Call: WRITE
  • Prompt: !,"YOU MUST QUEUE A REPORT BEFORE SENDING IT TO A PRINTER!!"
  • Line Location: DEV+0
Routine Call
  • %ZIS
  • Line Location:
    • DEV

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMR(124.3 - [#124.3] EN3+2, EN2+2
^GMRD(124.2 - [#124.2] EN3+2, EN1+1, EN2+2
^GMRD(124.25 - [#124.25] EN2+3, EN2+4
^TMP($J EN1+2*, MES2+1, Q1!, EN2+1!, TASK, Q2+1!

Label References

Name Line Occurrences
DEV DEV
EN1 EN3+2
EN2 MES2+1
MES2 EN1+2
PROMP MES1
Q1 EN1+3, REPT
Q2 PROMP, DEV, DEV+2
Q3 EN3+2
REPT MES2
TASK DEV+1

Naked Globals

Name Field # of Occurrence
^( TASK
^(0 EN3+2, EN1+1, EN2+2, EN2+3, EN2+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN3+2
%ZIS DEV*, Q2!
>> DFN EN3+1
DTIME REPT, PROMP
GMRG EN3+2*, Q3!
GMRGA EN1+1*, Q1!, EN2+2*, EN2+5*, TASK*, Q2!
GMRGAA REPT+1*, PROMP+1*, TASK*, Q2!
GMRGAJ MES2+1*, Q1!
GMRGB REPT+1*, Q1!, PROMP+1*, Q2!
GMRGBAD EN1+2*, REPT+1*, MES2, Q1!, PROMP+1*, MES1, Q2!
GMRGBEG Q1!, Q2!
GMRGC EN1+1*, Q1!, EN2+1*, EN2+2*, Q2!
GMRGCJ MES2+1*, Q1!
GMRGCLS MES2+1*, Q1!, EN2+1, EN2+2, EN2+3, EN2+4, TASK
GMRGEND Q1!, Q2!
GMRGG EN1+1*, EN1+2, EN1+3, EN1+4, EN1+5*, Q1!, EN2+1*, EN2+2*, EN2+3, PROMP
, Q2!
GMRGH Q2!
GMRGHH Q2!
GMRGI Q2!
GMRGJ Q2!
GMRGLIN Q3!
GMRGLIN("-" EN3+2*
>> GMRGOUT EN3+2*, EN1+5, EN1+6*, REPT*, MES2+1, EN2+5, EN2+6*, PROMP*
>> GMRGPAR TASK*
>> GMRGPAR(0 TASK*
GMRGPCHC EN2+1!, Q2!
GMRGPCHC( EN2+2*, EN2+5
GMRGPCL EN1+4*, Q1!, EN2+1*, Q2!
>> GMRGPDA EN3+1, EN3+2, EN2+2
>> GMRGPDT EN3+2*
GMRGREQ REPT*, REPT+1, Q1!, PROMP*, PROMP+1, Q2!
GMRGRT EN3+2*, Q3!, EN1+1, EN1+4, EN2+2
GMRGUCCH EN1+4*, REPT, Q1!
GMRGUCCH( EN1+1*, EN1+2, EN1+5
GMRGUPCH EN2+1!, Q2+1!
IO TASK+3
IO("Q" DEV, DEV+1, DEV+2!
IOM EN3+2
ION DEV+1
IOST DEV
>> POP DEV
VA TASK+4!
>> X EN1+1*, EN2+2*
>> ZION DEV+1*
>> ZTDESC DEV+2*
>> ZTRTN DEV+2*
ZTSAVE DEV+2!
ZTSAVE("DFN" DEV+2*
ZTSAVE("GMRGA" DEV+2*
ZTSAVE("GMRGAA" DEV+1*
ZTSAVE("GMRGCJ" DEV+1*
ZTSAVE("GMRGCLS" DEV+1*
ZTSAVE("GMRGLIN(" DEV+2*
ZTSAVE("GMRGOUT" DEV+2*
ZTSAVE("GMRGPDA" DEV+1*
ZTSAVE("GMRGPDT" DEV+2*
ZTSAVE("GMRGRT" DEV+2*
ZTSAVE("^TMP($J," DEV+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All