DG1010PA ;ALB/REW - 1010 PRINT--INQUIRY PATIENT -ADDITIONL ; 28-MAY-93
Source file <DG1010PA.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
NOREG(DFN) | ; DOES PROMPTS FOR 10/10 PRINT W/O REGISTRATION
|
|
QTNOREG | ||
PROMPRN(DGX) | ; PROMPTS FOR PRINT
; RETURNS DGX [1=YES;0=NO;-1=DIRUT CONDITIONS] ; OUTPUT:DG1 VALUE |
|
QTPROMP | ||
ASK(DGX) | ; PROMPTS FOR PRINT
|
|
FAILCOND(DGX) | ;CHECKS IF PROMPT SHOULD BE ASKED
|
|
QTFAIL | ||
AFTERASK(DGX) | ;ACTIONS AFTER REPONSE OF YES TO PRINT
|
|
ADM |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|