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

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+3

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call