DGPPRP1 ;LIB/MKN - PRESUMPTIVE PSYCHOSIS STATUS REPORT;08/01/2019
Source file <DGPPRP1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ;entry point from Menu Option: PRESUMPTIVE PSYCHOSIS STATUS REPORT
|
|
ASKDIV | ;Select Division
|
|
SELCAT | ;
|
|
SELDATES | ;
|
|
DQ | ;
|
|
;Print results by Division/PP Category/Treatment Date/Patient Name
|
||
PRINT2 | ;
|
|
HDR | ; Print page header
|
|
SET(IENDFN,DGDT,FD,TD,VAUTD) | ;
|
|
SELDIV(DGDIVSEL) | ;prompt for DIVISION
|
|
CHKTREAT(RET,DFN,DGDTF,DGDTT,ARRDIV) | ;
|
|
CHKTRSET | ;
|
|
DTFRMTO(PROMPT) | ;Get from and to dates
|
|
FRMDT | ;
|
|
TODT | ;
|
|
SELECT(PROMPT,SET) | ; prompts for a report type
|
|
GETDEFD() | ;
|
|
OUT | ; KILL RETURN ARRAY QUIT
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: READ |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | GETS^DIQ |
^DGPP(33.1 - [#33.1] | GETS^DIQ |
^DG(40.8 - [#40.8] | GET1^DIQ |
^SCE - [#409.68] | GETS^DIQ |