Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: DG1010PA

Package: Registration

Routine: DG1010PA


Information

DG1010PA ;ALB/REW - 1010 PRINT--INQUIRY PATIENT -ADDITIONL ; 28-MAY-93

Source Information

Source file <DG1010PA.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"PRINT "
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: $S(DGX="THIRD":"ERROR",(DGX="HS"):"HEALTH SUMMARY",(DGX="PRO"):"DRUG PROFILE",(DGX="EF"):"ENCOUNTER FORMS",1:"ERROR")
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !,"ENTER 'Y'ES TO PRINT A ",DGX,". OTHERWISE ENTER 'N'O."
  • Line Location: ASK+5
Function Call: WRITE
  • Prompt: !,*7,"No Type Selected. HS will not print"
  • Line Location: AFTERASK+20
Info |  Source |  Entry Points |  Interaction Calls