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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: GMRCYP31

Package: Consult Request Tracking

Routine: GMRCYP31


Information

GMRCYP31 ;SLC/JFR - POST-INIT FOR PATCH 31; 2/04/03 08:02

Source Information

Source file <GMRCYP31.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  ($$CJ,$$REPEAT)^XLFSTR  
VA Fileman 2 $$GET1^DIQ  ^DIR  
Consult Request Tracking 1 BLDALN^GMRCSLM4  

Entry Points

Name Comments DBIA/ICR reference
ACTS(CSLT) ;loop activities and see if there is a remote FWD or SF update
EXIT ; clean up
POST1 ; START POST-INIT
PRINT ; loop the ^TMP global and write records
; ask device and queue if needed
;
POST ;
HDR(PAGE,CSLT) ;print a new header
; PAGE = next page number
; CSLT = consult ien working on

External References

Name Field # of Occurrence
^%ZIS POST+3
HOME^%ZIS POST+9, PRINT+8, PRINT+55
^%ZISC PRINT+8, PRINT+55
^%ZTLOAD POST+9
$$GET1^DIQ PRINT+24, PRINT+25, PRINT+26
^DIR PRINT+10, HDR+6
BLDALN^GMRCSLM4 PRINT+45
$$CJ^XLFSTR PRINT+32, PRINT+33, HDR+14
$$REPEAT^XLFSTR PRINT+12, PRINT+16, PRINT+28, PRINT+38, HDR+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report should be sent to a printer",!
  • Line Location: POST+2
Function Call: WRITE
  • Prompt: !,"REPORT TASKED TO PRINT!"
  • Line Location: POST+10
Function Call: WRITE
  • Prompt: !,"No records to report"
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !,"No cleanup or modification should be made to Inter-facility consults that are "
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: !,"identified with extraneous comments at this time. Patch GMRC*3*32 will outline"
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: !,"the processes that should be utilized to properly accomplish these corrections."
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("*",79)
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("*",78)
  • Line Location: PRINT+28
Function Call: WRITE
  • Prompt: !,"Consult #: ",GMRCDA
  • Line Location: PRINT+29
Function Call: WRITE
  • Prompt: !,PTNM,?50,PTSSN
  • Line Location: PRINT+30
Function Call: WRITE
  • Prompt: !,"Receiving Site: ",REMSIT,?50,"Remote Consult #: ",REMNUM
  • Line Location: PRINT+31
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Activities for Review",78)
  • Line Location: PRINT+32
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("*********************",78)
  • Line Location: PRINT+33
Function Call: WRITE
  • Prompt: !,"Facility"
  • Line Location: PRINT+35
Function Call: WRITE
  • Prompt: !," Activity",?25,"Date/Time/Zone",$E(TAB,1,6)
  • Line Location: PRINT+36
Function Call: WRITE
  • Prompt: "Responsible Person",$E(TAB,1,2),"Entered By"
  • Line Location: PRINT+37
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",79)
  • Line Location: PRINT+38
Function Call: WRITE
  • Prompt: !,?11,"Act. #:",ACT
  • Line Location: PRINT+44
Function Call: WRITE
  • Prompt: !,$G(^TMP("GMRCR",$J,"DT",I,0))
  • Line Location: PRINT+50
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+52
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,"GMRC*3*31 Post-Install",?69,"Page: ",PAGE
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",79)
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(TEXT,80)
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+15
Routine Call
  • %ZIS
  • Line Location:
    • POST+9
    • PRINT+8
    • PRINT+55
Routine Call
  • DIR
  • Line Location:
    • PRINT+10
    • HDR+6
Routine Call
  • %ZIS
  • Line Location:
    • POST+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMR(123 - [#123] GET1^DIQ
^DPT - [#2] GET1^DIQ
^DIC(4 - [#4] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMR(123 - [#123] POST1+3, POST1+5, POST1+6, POST1+7, ACTS+4, ACTS+6, ACTS+8, ACTS+9, ACTS+11, PRINT+25
, PRINT+26, PRINT+27
^TMP("GMRCR" PRINT+47, PRINT+50, PRINT+51!
^TMP("GMRCYP31" POST1+9, POST1+10*, ACTS+12*, PRINT+8, PRINT+19, PRINT+21, PRINT+40, EXIT+1!

Label References

Name Line Occurrences
ACTS POST1+8
EXIT PRINT+56
HDR PRINT+7, PRINT+22, PRINT+34, PRINT+42, PRINT+48
POST1 POST+12
PRINT POST1+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS POST+1~, POST+3*
ACT PRINT+4~, PRINT+39*, PRINT+40*, PRINT+43*, PRINT+44, PRINT+45, PRINT+49*
ACTV ACTS+2~, ACTS+3*, ACTS+4*, ACTS+6, ACTS+8, ACTS+9, ACTS+12
ACTYPE ACTS+5~, ACTS+6*, ACTS+7
CSLT ACTS~, ACTS+4, ACTS+6, ACTS+8, ACTS+9, ACTS+11, ACTS+12, HDR~, HDR+11, HDR+13
DIR PRINT+10~, HDR+5~
DIR(0 PRINT+10*, HDR+6*
DIROUT HDR+5~
DIRUT HDR+5~, HDR+7
DTOUT HDR+5~
DUOUT HDR+5~
GMRCCT PRINT+4~, PRINT+41~*
GMRCDA PRINT+4~, PRINT+20*, PRINT+21*, PRINT+22*, PRINT+24, PRINT+25, PRINT+26, PRINT+27, PRINT+29, PRINT+34*
, PRINT+40, PRINT+42, PRINT+43*, PRINT+45, PRINT+48, PRINT+49*
GMRCISIT POST1+1~, POST1+2*, POST1+3*, POST1+5, POST1+6, POST1+9, POST1+10
GMRCO POST1+1~, POST1+6*, POST1+7, POST1+8, POST1+9, POST1+10
GMRCPG PRINT+4~, PRINT+6*, PRINT+7, PRINT+22, PRINT+28, PRINT+34, PRINT+42, PRINT+48
GMRCQT POST+1~
GMRCRO POST1+1~, POST1+4*, POST1+5*, POST1+6
GMRCSIT PRINT+4~, PRINT+18*, PRINT+19*, PRINT+21, PRINT+40
I PRINT+46~*, PRINT+47*, PRINT+49*, PRINT+50
IO PRINT+5
IO("Q" POST+5, POST+9!
IOF HDR+8
ION POST+7
IOSL PRINT+22, PRINT+34, PRINT+42, PRINT+48
IOST PRINT+10, HDR+4
PAGE HDR~, HDR+4, HDR+7*, HDR+9, HDR+16*
POP POST+1~, POST+4
PTNM PRINT+23~, PRINT+24*, PRINT+30
PTSSN PRINT+23~, PRINT+25*, PRINT+30
REMNUM PRINT+4~, PRINT+27*, PRINT+31
REMSIT PRINT+23~, PRINT+26*, PRINT+31
SITE ACTS+10~, ACTS+11*, ACTS+12
TAB PRINT+4~, PRINT+12*, PRINT+36, PRINT+37
TEXT HDR+12~, HDR+13*, HDR+14
U POST1+7, ACTS+6, ACTS+11, PRINT+25, PRINT+26, PRINT+27
ZTDESC POST+6~, POST+8*
ZTDTH POST+6~, POST+7*
ZTIO POST+6~, POST+7*
ZTRTN POST+6~, POST+7*
ZTSAVE POST+6~
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All