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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: GMRCSTS1

Package: Consult Request Tracking

Routine: GMRCSTS1


Information

GMRCSTS1 ;SLC/JFR,MA - GROUP UPDATE OF CONSULTS cont'd ;4/18/01 10:31

Source Information

Source file <GMRCSTS1.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 3 ^%ZISC  ($$FMTE,$$NOW)^XLFDT  $$REPEAT^XLFSTR  
VA FileMan 3 ^DIE  $$GET1^DIQ  ^DIR  
Consult Request Tracking 2 EN^GMRCHL7  TRIGR^GMRCIEVT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Consult Request Tracking 1 GMRCSTS  

Entry Points

Name Comments DBIA/ICR reference
PROCESS(GMRCCVT,GMRCMT) ;Update consult status by service and date range
PRINT(GMRCM,GMRCCVT,GMRCSVC,GMRCMT,GMRCSTRT,GMRCSTOP,GMRCDO) ;untasked print of records to update
PRTTSK ; print the report then start the processing
; GMRCM= status of records to find A:active, P:pending, B:Both
; GMRCCVT= status to update records with 1:dc, 2:complete
; GMRCSVC= IEN from file 123.5
; GMRCMT= array (passed by reference) of comment to stuff in records
; GMRCSTRT= first entry date to find/update
; GMRCSTOP= last entry date to find/update
; GMRCDO= 1:print only, 2:print and update records
; GMRCSTAT= Status of consult for the report (P,A,S)
END
HDR(PAGE) ; print the header for the report
GETENTS(SERV,STRDT,STPDT,SRCH)
GETDATA ; Write ^GMR(123,IEN,0) to TMP
AUDIT(GMRCO,UPDSTS,GMRCOM) ;Update the processing activity of the consult
STSUPD(GMRCO,UPDSTS) ;change status of consult to COMPLETE or DC
CPRSUPDT(GMRCO,UPDSTS) ;Update CPRS order with new status
UPDCRIT(UPD,STS,SVC,CMT,START,STOP) ;print update criteria on page 1

External References

Name Field # of Occurrence
^%ZISC PRTTSK+25
^DIE AUDIT+10, STSUPD+7
$$GET1^DIQ PRTTSK+20, PRTTSK+21, UPDCRIT+9
^DIR PRTTSK+30, HDR+2
EN^GMRCHL7 CPRSUPDT+7
TRIGR^GMRCIEVT AUDIT+22
$$FMTE^XLFDT PRTTSK+19, HDR+5, UPDCRIT+10, UPDCRIT+11
$$NOW^XLFDT HDR+5, AUDIT+4
$$REPEAT^XLFSTR HDR+9, UPDCRIT+8, UPDCRIT+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No records found meeting search criteria"
  • Line Location: PRTTSK+14
Function Call: WRITE
  • Prompt: !,GMRCIEN,?8,$$FMTE^XLFDT(+^GMR(123,GMRCIEN,0))
  • Line Location: PRTTSK+19
Function Call: WRITE
  • Prompt: ?29,$E($$GET1^DIQ(2,$P(^GMR(123,GMRCIEN,0),U,2),.01),1,26)
  • Line Location: PRTTSK+20
Function Call: WRITE
  • Prompt: ?56,$$GET1^DIQ(2,$P(^GMR(123,GMRCIEN,0),U,2),.09)
  • Line Location: PRTTSK+21
Function Call: WRITE
  • Prompt: ?70,$S(GMRCSTAT=5:"p",GMRCSTAT=6:"a",GMRCSTAT=8:"s",1:"?")
  • Line Location: PRTTSK+23
Function Call: WRITE
  • Prompt: " to ",$S(+GMRCCVT=1:"dc",1:"c")
  • Line Location: PRTTSK+24
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,?49,"Printed: ",$$FMTE^XLFDT($$NOW^XLFDT)
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,"Consult",?70,"Status"
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,"Number Requested Patient SSN Change"
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",79)
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !!,"Searching database for entries matching search criteria",!
  • Line Location: GETENTS+2
Function Call: WRITE
  • Prompt: "."
  • Line Location: GETDATA+5
Function Call: WRITE
  • Prompt: !,"Records will be updated for:"
  • Line Location: UPDCRIT+7
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",78)
  • Line Location: UPDCRIT+8
Function Call: WRITE
  • Prompt: !," Service: "_$$GET1^DIQ(123.5,SVC,.01)
  • Line Location: UPDCRIT+9
Function Call: WRITE
  • Prompt: !," Beginning: "_$$FMTE^XLFDT(START)
  • Line Location: UPDCRIT+10
Function Call: WRITE
  • Prompt: !," Ending: "_$$FMTE^XLFDT(STOP)
  • Line Location: UPDCRIT+11
Function Call: WRITE
  • Prompt: !," Update: "_GMRCSTS_" "_" Consults"
  • Line Location: UPDCRIT+12
Function Call: WRITE
  • Prompt: !," To: "_$S(+UPD=2:"COMPLETE",1:"DISCONTINUED")
  • Line Location: UPDCRIT+13
Function Call: WRITE
  • Prompt: !," Update Comment:"
  • Line Location: UPDCRIT+14
Function Call: WRITE
  • Prompt: !,CMT(I,0)
  • Line Location: UPDCRIT+16
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",78),!
  • Line Location: UPDCRIT+17
Routine Call
  • DIE
  • Line Location:
    • AUDIT+10
    • STSUPD+7
Routine Call
  • DIR
  • Line Location:
    • PRTTSK+30
    • HDR+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMR(123 - [#123] Classic Fileman Calls
^GMR(123.5 - [#123.5] GET1^DIQ
^DPT - [#2] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMR(123 - [#123] PROCESS+6, PRTTSK+17, PRTTSK+18, PRTTSK+19, PRTTSK+20, PRTTSK+21, GETDATA+2, GETDATA+3, GETDATA+4, AUDIT+5
, AUDIT+6, AUDIT+7*, AUDIT+11*, AUDIT+13*, AUDIT+20*, AUDIT+22, CPRSUPDT+4
^GMR(123.1 - [#123.1] STSUPD+4
^ORD(100.01 - [#100.01] AUDIT+17
^TMP("GMRCLS" PROCESS+4, PROCESS+5, PRTTSK+13, PRTTSK+15, PRTTSK+22, END!, GETDATA+4*

Label References

Name Line Occurrences
AUDIT PROCESS+7
CPRSUPDT PROCESS+9
END PRTTSK+13
GETDATA GETENTS+8, GETENTS+9, GETENTS+10
HDR PRTTSK+12, PRTTSK+16
PROCESS PRTTSK+31, PRTTSK+32
STSUPD PROCESS+8
UPDCRIT HDR+6

Naked Globals

Name Field # of Occurrence
^(0 PRTTSK+18, AUDIT+6*, AUDIT+7
^(40 AUDIT+22

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CMT UPDCRIT~, UPDCRIT+14
CMT( UPDCRIT+15, UPDCRIT+16
COMMENT AUDIT+15~, AUDIT+16*, AUDIT+17*, AUDIT+18*, AUDIT+19*, AUDIT+20
CTRLCODE CPRSUPDT+3~, CPRSUPDT+5*, CPRSUPDT+7
DA AUDIT+3~, AUDIT+7*, AUDIT+11, AUDIT+13, AUDIT+20, AUDIT+22, STSUPD+3~, STSUPD+5*
DA(1 AUDIT+8*
DIE AUDIT+3~, AUDIT+8*, AUDIT+23!, STSUPD+3~, STSUPD+5*
DIR HDR+2~
DIR("A" PRTTSK+28*
DIR(0 PRTTSK+27*, HDR+2*
>> DIROUT PRTTSK+29
>> DIRUT PRTTSK+29
DR AUDIT+9*, STSUPD+3~, STSUPD+6*
>> DTOUT PRTTSK+29
>> DUOUT PRTTSK+29
DUZ CPRSUPDT+7
GMRCA AUDIT+3~, AUDIT+4*, AUDIT+23!
GMRCAD PROCESS+1~
GMRCCVT PROCESS~, PROCESS+3, PROCESS+7, PROCESS+8, PROCESS+9, PRINT~, PRTTSK+24, PRTTSK+31, PRTTSK+32, HDR+6
GMRCDEV PROCESS+1~
GMRCDFN PRTTSK+9~, CPRSUPDT+3~, CPRSUPDT+4*, CPRSUPDT+7
GMRCDO PRINT~, PRTTSK+26, PRTTSK+32
GMRCDT AUDIT+3~, AUDIT+4*, AUDIT+11, AUDIT+23!
GMRCEND PRTTSK+9~, PRTTSK+15, PRTTSK+16, HDR+1*
GMRCFF PROCESS+1~
GMRCIEN PROCESS+5*, PROCESS+6, PROCESS+7, PROCESS+8, PROCESS+9, PRTTSK+9~, PRTTSK+10*, PRTTSK+15*, PRTTSK+17, PRTTSK+18
, PRTTSK+19, PRTTSK+20, PRTTSK+21, PRTTSK+22
GMRCLST STSUPD+3~, STSUPD+4*, STSUPD+6
GMRCM PRINT~, HDR+6
GMRCMT PROCESS~, PROCESS+7, PRINT~, PRTTSK+31, PRTTSK+32, HDR+6
GMRCO PROCESS+1~, AUDIT~, AUDIT+5, AUDIT+6, AUDIT+7, AUDIT+8, AUDIT+11, AUDIT+13, AUDIT+20, AUDIT+22
, STSUPD~, STSUPD+5, CPRSUPDT~, CPRSUPDT+4, CPRSUPDT+7
GMRCOM AUDIT~, AUDIT+12, AUDIT+13, AUDIT+14
GMRCOM1 PROCESS+2~
GMRCORNP PROCESS+1~
GMRCPG PRTTSK+9~, PRTTSK+12*, PRTTSK+16*
GMRCSTAT PRTTSK+9~, PRTTSK+22*, PRTTSK+23
GMRCSTOP PRINT~, HDR+6
GMRCSTRT PRINT~, HDR+6
GMRCSTS PROCESS+1~, AUDIT+3~, AUDIT+5*, AUDIT+17, UPDCRIT+1~, UPDCRIT+3*, UPDCRIT+4*, UPDCRIT+5*, UPDCRIT+6*, UPDCRIT+12
GMRCSVC PRINT~, HDR+6
GMRCTRLC PROCESS+1~
I UPDCRIT+15~*, UPDCRIT+16
IDT GETENTS+1~, GETDATA+1*, GETDATA+2*, GETDATA+3
IEN GETENTS+1~, GETDATA+3*, GETDATA+4
INDEX GETENTS+1~, GETENTS+4*, GETENTS+5, GETENTS+7*, GETENTS+8, GETENTS+9, GETENTS+10, UPDCRIT+1~, UPDCRIT+2*, UPDCRIT+4
, UPDCRIT+5, UPDCRIT+6
IO PRTTSK+11
IOF HDR+3
IOSL PRTTSK+16
IOST HDR+1
ORIFN PROCESS+1~, PROCESS+2~
PAGE HDR~, HDR+1, HDR+4, HDR+5, HDR+6
SERV GETENTS~, GETDATA+2, GETDATA+3
SRCH GETENTS~, GETENTS+4, GETENTS+5*, GETENTS+7, GETENTS+8, GETENTS+9, GETENTS+10
START UPDCRIT~, UPDCRIT+10
STOP UPDCRIT~, UPDCRIT+11
STOPI GETENTS+1~, GETENTS+3*, GETDATA+1
STPDT GETENTS~, GETENTS+3
STRDT GETENTS~, GETENTS+3
STRTI GETENTS+1~, GETENTS+3*, GETDATA+2
STS GETENTS+1~, GETENTS+8*, GETENTS+9*, GETENTS+10*, GETDATA+2, GETDATA+3, GETDATA+4, UPDCRIT~, UPDCRIT+2, UPDCRIT+3
, UPDCRIT+4, UPDCRIT+5, UPDCRIT+6
SVC UPDCRIT~, UPDCRIT+9
U PRTTSK+18, PRTTSK+20, PRTTSK+21, GETDATA+4, AUDIT+5
UPD UPDCRIT~, UPDCRIT+13
UPDSTS AUDIT~, AUDIT+4, AUDIT+18, STSUPD~, STSUPD+4, CPRSUPDT~, CPRSUPDT+5
X STSUPD+3~
Y PRTTSK+31, HDR+1~
>> ZTQUEUED PRTTSK+26, PRTTSK+32
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All