GMRCCC ;SFVAMC/DAD - Consult Closure Tool: Output Data ;01/20/17 15:19
Source file <GMRCCC.m>
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 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
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 |