PSOTPCLP ;BIRM/PDW-PRINT PATIENT LETTERS ;AUG 5,2003
Source file <PSOTPCLP.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
; select options
|
||
PATIENT | ; print by patients
|
|
DIVISION | ;print by division
|
|
PATSEL | ; Select one or more patients
|
|
LST | ||
DSPPAT(DFN) | ; Display Division and expire date
|
|
DEVICE | ;
|
|
DEQUE | ; DEQUE/PRINT LETTERS
|
|
SORTPAT | ; sort by patient
|
|
PRTLET | ; pull DIVDAs and DFNs from ^TMP($J,"TPBLET",
|
|
LETTER(DFN) | ; print letter , division variables information must be present
|
|
GETPAT(DFN) | ;GET PATIENT DATA
|
|
CCADD | ; Get Confidential Correspondence Address if one is active
; and has the category "all other". |
|
HEADER | ; print letter header
|
|
DIV | ||
GETDIV(DIVDA) | ; GET DIVISIONAL DATA
|
|
GET1(FILE,FLIEN,FLDX) | ; "Variable^FLD" load variable = FILE,FLD
|
|
EXIT | ;
|
|
LOAD |
Name | Line Occurrences |
---|---|
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 |
|
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 |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | GET1^DIQ |
^PS(52.91 - [#52.91] | Classic Fileman Calls, GET1^DIQ |
^PS(52.92 - [#52.92] | GET1^DIQ |