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

Package: Registration

Routine: DGOREL1


Information

DGOREL1 ;ALB/MAC - PATIENT OUTPUT BY RELIGIOUS AFFILIATIONS (Cont.) ; 5/25/18 8:31am

Source Information

Source file <DGOREL1.m>

Entry Points

Name Comments DBIA/ICR reference
START
PR
DIV
DGUTIL
CONT
DGSET
SET1
SET
RET
RELP
DGPR ;D:$Y+4>IOSL RELP Q:DGU W ?3,$P(DGUT,"^",4),?15,$P(DGUT,"^",1),?40,$P(DGUT,"^",2),?58 S Y=$P(DGUT,"^",3) X ^DD("DD") W Y Q
HEAD
QUIT
QUIT1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"=====>NO PATIENTS FOUND"
  • Line Location: PR+1
Function Call: WRITE
  • Prompt: !
  • Line Location: CONT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: RET+0
Function Call: READ
  • Formatting: ?22
  • Prompt: "Enter <RET> to continue or ^ to QUIT "
  • Variable: X
  • Timeout: DTIME
  • Line Location: RET+1
Function Call: WRITE
  • Prompt: ?3,$P(DGUT,"^",4),?15,$P(DGUT,"^",1),?40,$P(DGUT,"^",2),?58
  • Line Location: DGPR+0
Function Call: WRITE
  • Prompt: Y
  • Line Location: DGPR+0
Function Call: WRITE
  • Prompt: ?3,$P(DGUT,"^",4),?15,$P(DGUT,"^",1),?43,$E($P(DGUT,"^",2),8,11),?58
  • Line Location: DGPR+1
Function Call: WRITE
  • Prompt: Y
  • Line Location: DGPR+1
Function Call: WRITE
  • Prompt: @IOF,!?3,"DIVISION: ",$S(DGD="ZNOT SPECIFIED":"NOT SPECIFIED",1:DGD),?50,DGDT,?63," PAGE ",DGPG,!?24,"INPATIENT RELIGIOUS AFFILIATIONS",!
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: ?DGSP1,DGSP,!
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: ?DGY,DGT,!!?4,"ROOM",?20,"PATIENT",?43,"PT ID",?60,"ADMISSION DATE",!,DGCL
  • Line Location: HEAD+4
Info |  Source |  Entry Points |  Interaction Calls