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: DGPASS

Package: Registration

Routine: DGPASS


Information

DGPASS ;ALB/JDS - ABSENCE LIST ; 01 JAN 86 @0800

Source Information

Source file <DGPASS.m>

Entry Points

Name Comments DBIA/ICR reference
EN
QUIT
START
EEN
CK ;check to see if xfr to absence
SET
OUT ;check to see if patient returned from absence - DGFL=1 if yes
DAT
HEAD
WR
WRCNT
WR1
RT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?8,"*** THERE ARE NO PATIENTS OUT ON ABSENCE FOR "_DGDAY_" ***"
  • Line Location: START+3
Function Call: WRITE
  • Prompt: @IOF,!,"ABSENCE LIST FOR ",DGDAY,?40,"PRINTED: ",DGTIME,?72," PAGE: "_DGPG
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: !!,"NAME",?22,"PT ID",?36,"TYPE",?42,"LEAVE",?54,"RETURN",?66,"WARD"
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !,DGCL,!!,?10,"DIVISION: ",$S(DGDV="ZUNKNOWN":"UNKNOWN",1:DGDV),!
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !
  • Line Location: WR+2
Function Call: WRITE
  • Prompt: !,$E(DGP,1,20),?22,$P(DGNO,"^"),?36,$P(DGNO,"^",2),?42,$P(DGNO,"^",3),?54,$P(DGNO,"^",4),?66,$E($P(DGNO,"^",5),1,14)
  • Line Location: WR1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: RT+1
Function Call: READ
  • Formatting: !?22
  • Prompt: "Enter <RET> to continue or ^ to Quit"
  • Variable: X
  • Timeout: DTIME
  • Line Location: RT+2
Info |  Source |  Entry Points |  Interaction Calls