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 |
