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 |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: GMRCCC

Package: Consult Request Tracking

Routine: GMRCCC


Information

GMRCCC ;SFVAMC/DAD - Consult Closure Tool: Output Data ;01/20/17 15:19

Source Information

Source file <GMRCCC.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
VA FileMan 5 ($$FIND1,LIST)^DIC  UPDATE^DIE  CLEAN^DILF  $$GET1^DIQ  ^DIR  
Consult Request Tracking 4 ($$GLOBROOT,$$ISTM,NOTESTAT)^GMRCCD  $$SFILE^GMRCGUIB  EN^GMRCT  GET^GMRCTIU  
Kernel 3 ^%ZISC  ($$DT,$$FMTE,$$NOW)^XLFDT  SETUP^XQALERT  

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

Package Total Caller Graph
Consult Request Tracking 2 GMRCCA  GMRCCD  

Entry Points

Name Comments DBIA/ICR reference
PRNTDATA(GMROOT,GMTBEG,GMTEND,GM0CFG,GMAPPT,GMNOTE,GMDLIM) ;
; *** Print the data
PRINT(GMROOT,GMCONS,GMCLIN,GMTITL,GMNAME,GMDLIM) ;
; *** Print one record
; Array("DATA", Consult^IEN, Clinic^IEN, Note^IEN, Patient^IEN) =
; SSN ^ ConsultDate ^ ApptDate ^ ApptStatusInt ^ ApptStatusExt ^ NoteDate
DATE(GMDATE,GMFORM) ;
; *** Format dates
BOOL(GMBOOL) ;
; *** Format boolean
PAUSE(GMEXIT,GMPAGE,GMTBEG,GMTEND,GM0CFG,GMAPPT,GMNOTE,GMDLIM) ;
; *** Pause at end of page
HEADER(GMPAGE,GMTBEG,GMTEND,GM0CFG,GMAPPT,GMNOTE,GMDLIM) ;
; *** Page header
WRITE(GMFMT,GMDATA,GMLEN,GMDLIM) ;
; *** Output the data
CENTER(GMDATA,GMDLIM) ;
; *** Center data
MAKETEAM(GMROOT,GM0CFG) ;
; *** Update the CPRS team
TEAMALRT(GM0CFG) ;
; *** Alert users when team is updated
CONSUPDT(GMROOT) ;
; *** Update the consults non-interactively
CONUPDT(GM0CON,GM0NOT,GMMSG) ;
; *** Update a consult

External References

Name Field # of Occurrence
^%ZISC PRNTDATA+23
$$FIND1^DIC CONUPDT+23
LIST^DIC MAKETEAM+10, TEAMALRT+7
UPDATE^DIE MAKETEAM+22, MAKETEAM+34
CLEAN^DILF MAKETEAM+11, MAKETEAM+23, MAKETEAM+35, TEAMALRT+8
$$GET1^DIQ HEADER+8, MAKETEAM+5, TEAMALRT+4, TEAMALRT+15, TEAMALRT+19, CONUPDT+6, CONUPDT+7, CONUPDT+13
^DIR PAUSE+4
$$GLOBROOT^GMRCCD MAKETEAM+8
$$ISTM^GMRCCD MAKETEAM+4
NOTESTAT^GMRCCD CONUPDT+5
$$SFILE^GMRCGUIB CONUPDT+25
EN^GMRCT CONUPDT+13
GET^GMRCTIU CONUPDT+11
$$DT^XLFDT HEADER+5
$$FMTE^XLFDT DATE+2
$$NOW^XLFDT TEAMALRT+20, CONUPDT+20
SETUP^XQALERT TEAMALRT+21

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+3
Routine Call
  • DIC
  • Line Location:
    • CONUPDT+23
Routine Call
  • DIC
  • Line Location:
    • MAKETEAM+10
    • TEAMALRT+7
Routine Call
  • DIE
  • Line Location:
    • MAKETEAM+22
    • MAKETEAM+34
Routine Call
  • DIR
  • Line Location:
    • PAUSE+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^OR(100.21 - [#100.21] GET1^DIQ
100.2101 LIST^DIC
100.212 LIST^DIC
^GMR(123 - [#123] GET1^DIQ
^GMR(123.033 - [#123.033] GET1^DIQ
^GMR(123.1 - [#123.1] FIND1^DIC
^TIU(8925 - [#8925] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("DILIST" MAKETEAM+6, TEAMALRT+5

Label References

Name Line Occurrences
$$BOOL PRINT+15
$$CONUPDT CONSUPDT+16
$$DATE PRINT+9, PRINT+11, PRINT+14, HEADER+5, HEADER+6
CENTER HEADER+4, HEADER+6, HEADER+8, HEADER+9, HEADER+10
HEADER PRNTDATA+5, PAUSE+5
PAUSE PRNTDATA+18
PRINT PRNTDATA+17
TEAMALRT MAKETEAM+38
WRITE PRNTDATA+8, PRINT+6, PRINT+7, PRINT+8, PRINT+9, PRINT+10, PRINT+11, PRINT+12, PRINT+13, PRINT+14
, PRINT+15, HEADER+5, HEADER+7, HEADER+11, HEADER+12, HEADER+13, HEADER+14, HEADER+15, HEADER+16, HEADER+17
, HEADER+18, HEADER+19, HEADER+20, HEADER+21, CENTER+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR PAUSE+2~, PAUSE+4!
DIR(0 PAUSE+4*
DIROUT PAUSE+2~
DIRUT PAUSE+2~
DTOUT PAUSE+2~
DUOUT PAUSE+2~
DUZ TEAMALRT+17, TEAMALRT+20, CONUPDT+25
GM0CFG PRNTDATA~, PRNTDATA+5, PRNTDATA+18, PAUSE~, PAUSE+5, HEADER~, HEADER+8, MAKETEAM~, MAKETEAM+4, MAKETEAM+5
, MAKETEAM+38, TEAMALRT~, TEAMALRT+4, TEAMALRT+19
GM0CON CONSUPDT+2~, CONSUPDT+13*, CONSUPDT+15, CONSUPDT+16, CONUPDT~, CONUPDT+11, CONUPDT+13, CONUPDT+25
GM0DFN MAKETEAM+2~, MAKETEAM+26*, MAKETEAM+28*, MAKETEAM+29, MAKETEAM+30
GM0DUZ TEAMALRT+2~, TEAMALRT+11*, TEAMALRT+12, TEAMALRT+15*, TEAMALRT+16
GM0NOT CONSUPDT+2~, CONSUPDT+14*, CONSUPDT+15, CONSUPDT+16, CONUPDT~, CONUPDT+6, CONUPDT+7, CONUPDT+11
GM0TM MAKETEAM+2~, MAKETEAM+5*, MAKETEAM+10, MAKETEAM+16, MAKETEAM+29, TEAMALRT+2~, TEAMALRT+4*, TEAMALRT+7, TEAMALRT+15
GM1TM MAKETEAM+2~, MAKETEAM+15*, MAKETEAM+16, MAKETEAM+17
GMALRT CONUPDT+2~, CONUPDT+18*, CONUPDT+25
GMAPPT PRNTDATA~, PRNTDATA+5, PRNTDATA+18, PAUSE~, PAUSE+5, HEADER~, HEADER+9
GMAUTH CONUPDT+2~, CONUPDT+6*, CONUPDT+11, CONUPDT+25
GMBOOL BOOL~, BOOL+2
GMCLIN PRNTDATA+2~, PRNTDATA+11*, PRNTDATA+12*, PRNTDATA+14, PRNTDATA+16, PRNTDATA+17, PRINT~, PRINT+5, PRINT+10, CONSUPDT+2~
, CONSUPDT+6*, CONSUPDT+7*, CONSUPDT+9, CONSUPDT+11, CONSUPDT+12, CONSUPDT+18
GMCONS PRNTDATA+2~, PRNTDATA+6*, PRNTDATA+7, PRNTDATA+10*, PRNTDATA+12, PRNTDATA+14, PRNTDATA+16, PRNTDATA+17, PRINT~, PRINT+5
, PRINT+8, CONSUPDT+2~, CONSUPDT+4*, CONSUPDT+5*, CONSUPDT+7, CONSUPDT+9, CONSUPDT+11, CONSUPDT+12, CONSUPDT+18
GMDATA PRINT+4~, PRINT+5*, PRINT+7, PRINT+9, PRINT+11, PRINT+12, PRINT+14, PRINT+15, WRITE~, WRITE+3
, CENTER~, CENTER+2, CONSUPDT+2~, CONSUPDT+12*, CONSUPDT+13, CONSUPDT+14, CONSUPDT+17*, CONSUPDT+18
GMDATE DATE~, DATE+2
GMDLIM PRNTDATA~, PRNTDATA+5, PRNTDATA+8, PRNTDATA+17, PRNTDATA+18, PRINT~, PRINT+6, PRINT+7, PRINT+8, PRINT+9
, PRINT+10, PRINT+11, PRINT+12, PRINT+13, PRINT+14, PRINT+15, PRINT+16, PAUSE~, PAUSE+3, PAUSE+5
, HEADER~, HEADER+3, HEADER+4, HEADER+5, HEADER+6, HEADER+7, HEADER+8, HEADER+9, HEADER+10, HEADER+11
, HEADER+12, HEADER+13, HEADER+14, HEADER+15, HEADER+16, HEADER+17, HEADER+18, HEADER+19, HEADER+20, HEADER+21
, HEADER+22, WRITE~, WRITE+2, WRITE+3, WRITE+4, CENTER~, CENTER+2, CENTER+3
GMDPT MAKETEAM+2~, MAKETEAM+8*, MAKETEAM+30
GMDUZ CONUPDT+2~, CONUPDT+14*, CONUPDT+15*, CONUPDT+16
GMEXIT PRNTDATA+2~, PRNTDATA+4*, PRNTDATA+10, PRNTDATA+12, PRNTDATA+14, PRNTDATA+16, PRNTDATA+18, PAUSE~, PAUSE+4*, PAUSE+5
GMFIND CONUPDT+2~, CONUPDT+19*, CONUPDT+25
GMFMT WRITE~, WRITE+2
GMFORM DATE~, DATE+2
GMIENS MAKETEAM+2~, MAKETEAM+16*, MAKETEAM+17, MAKETEAM+29*, MAKETEAM+30
GMINDX MAKETEAM+2~, MAKETEAM+12*, MAKETEAM+14*, MAKETEAM+15, TEAMALRT+2~, TEAMALRT+9*, TEAMALRT+10*, TEAMALRT+11
GMLEN WRITE~, WRITE+2, WRITE+3
GMLIST MAKETEAM+2~, MAKETEAM+6*, MAKETEAM+7, MAKETEAM+14, MAKETEAM+15, MAKETEAM+19, TEAMALRT+2~, TEAMALRT+5*, TEAMALRT+6, TEAMALRT+10
, TEAMALRT+11, TEAMALRT+14
GMMSG CONSUPDT+3~, CONSUPDT+16, CONSUPDT+17, CONUPDT~, CONUPDT+3!, CONUPDT+25, CONUPDT+26!*
GMMSG(1 CONUPDT+21*
GMMSG(2 CONUPDT+22*
GMNAME PRNTDATA+2~, PRNTDATA+13*, PRNTDATA+14*, PRNTDATA+16, PRNTDATA+17, PRINT~, PRINT+5, PRINT+6, CONSUPDT+3~, CONSUPDT+10*
, CONSUPDT+11*, CONSUPDT+12, CONSUPDT+18
GMNOTE PRNTDATA~, PRNTDATA+5, PRNTDATA+18, PAUSE~, PAUSE+5, HEADER~, HEADER+10
GMNOW CONUPDT+2~, CONUPDT+20*, CONUPDT+25
GMOKAY CONUPDT+3~, CONUPDT+25*, CONUPDT+26, CONUPDT+27
GMPAGE PRNTDATA+2~, PRNTDATA+4*, PRNTDATA+5, PRNTDATA+18, PAUSE~, PAUSE+5, HEADER~, HEADER+2*, HEADER+3, HEADER+7
GMRCADUZ CONUPDT+3~
GMRCADUZ( CONUPDT+15, CONUPDT+16
GMROOT PRNTDATA~, PRNTDATA+7, PRNTDATA+10, PRNTDATA+12, PRNTDATA+14, PRNTDATA+16, PRNTDATA+17, PRINT~, PRINT+5, MAKETEAM~
, MAKETEAM+7, MAKETEAM+17, MAKETEAM+21, MAKETEAM+22, MAKETEAM+25, MAKETEAM+28, MAKETEAM+30, MAKETEAM+33, MAKETEAM+34, MAKETEAM+37
, CONSUPDT~, CONSUPDT+5, CONSUPDT+7, CONSUPDT+9, CONSUPDT+11, CONSUPDT+12, CONSUPDT+18
GMSTAT CONUPDT+3~, CONUPDT+5, CONUPDT+7*, CONUPDT+8*, CONUPDT+9*, CONUPDT+11, CONUPDT+18, CONUPDT+23*, CONUPDT+25
GMSTAT( CONUPDT+8
GMTBEG PRNTDATA~, PRNTDATA+5, PRNTDATA+18, PAUSE~, PAUSE+5, HEADER~, HEADER+6
GMTEND PRNTDATA~, PRNTDATA+5, PRNTDATA+18, PAUSE~, PAUSE+5, HEADER~, HEADER+6
GMTITL PRNTDATA+2~, PRNTDATA+15*, PRNTDATA+16*, PRNTDATA+17, PRINT~, PRINT+5, PRINT+13, CONSUPDT+3~, CONSUPDT+8*, CONSUPDT+9*
, CONSUPDT+11, CONSUPDT+12, CONSUPDT+18
GMTO CONUPDT+3~, CONUPDT+14*, CONUPDT+16*, CONUPDT+25
GMUPDT CONSUPDT+3~, CONSUPDT+16*, CONSUPDT+17
IO PRNTDATA+3
IOF HEADER+3
IOM HEADER+21, CENTER+2
IOSL PAUSE+3
IOST PAUSE+4, HEADER+3
U PRINT+6, PRINT+7, PRINT+8, PRINT+9, PRINT+10, PRINT+11, PRINT+12, PRINT+13, PRINT+14, PRINT+15
, WRITE+4, CONSUPDT+13, CONSUPDT+14, CONSUPDT+17, CONUPDT+26, CONUPDT+27
X PAUSE+2~
XQA TEAMALRT+2~
XQA( TEAMALRT+12*, TEAMALRT+16*, TEAMALRT+17*
XQAARCH TEAMALRT+2~
XQADATA TEAMALRT+2~
XQAFLG TEAMALRT+3~
XQAID TEAMALRT+3~, TEAMALRT+20*
XQAMSG TEAMALRT+3~, TEAMALRT+18*, TEAMALRT+19*
XQAOPT TEAMALRT+3~
XQAROU TEAMALRT+3~
XQASUPV TEAMALRT+3~
XQASURO TEAMALRT+3~
Y PAUSE+2~, PAUSE+4

Marked Items

Name Field # of Occurrence
$T( TEAMALRT+20
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 |  Local Variables |  Marked Items  | All