Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMR(123 - [#123] GET1^DIQ
^DPT - [#2] GET1^DIQ
^DIC(4 - [#4] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call