DGPTFM6 ;ALB/BOK/ADL/PLT - 601 SCREEN: PROCEDURE ENTER/EDIT ;21 JUL 88 @ 0900
Source file <DGPTFM6.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ; Entry point - begin date checks
|
|
T | ;add procedure record
|
|
EDIT | ;
|
|
SET | ||
WRT | ;
|
|
NEXP | ;S DGZP=DGZP+1 G ^DGPTFM:'$D(P(DGZP)),SET
|
|
HELP | ||
MOB | ||
BS | ;CALLED FROM [DG601]
|
|
R | ;DELETE PROCEDURE RECORD
|
|
E | ;EDIT PROCEDURE RECORD
|
|
P | ||
P1 | ||
P2 | ||
FY86 | ||
GETVAR | ;CALLED FROM GET+1^DGPTFM
|
|
BADDT(DGPROCD) | ; Check patients admit date and entered date against census DATE
; If admit date is after census date then we're done ; checks to see if Patient has been discharged or has a closed census and returns false ; If not discharged or closed and the admit and procedure date is within census date range then return false ; If admit date and procedure date is past the date range then return true |
|
PGBR |
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: READ |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: READ |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: READ |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^DGPT - [#45] | Classic Fileman Calls, EXTERNAL^DILFD |