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

Package: Registration

Routine: DGPMOLD1


Information

DGPMOLD1 ;ALB/MIR - CONTINUATION OF LODGER OUTPUTS (SORT/PRINT) ;23 MAY 90 @12

Source Information

Source file <DGPMOLD1.m>

Entry Points

Name Comments DBIA/ICR reference
STORE
DR ;lodgers for a date range
SORT
PRINT ;output for either type
WRITE
NEWWARD
HEAD
DIV
WARD ;ward or facility print

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$E(K,1,25)
  • Line Location: WRITE+1
Function Call: WRITE
  • Prompt: ?27,$E(VA("BID"),1,8),?37
  • Line Location: WRITE+1
Function Call: WRITE
  • Prompt: ?27,$E(VA("BID"),1,8),?37
  • Line Location: WRITE+1
Function Call: WRITE
  • Prompt: ?98,$P(DGX,"^",6)
  • Line Location: WRITE+2
Function Call: WRITE
  • Prompt: ?93,Y
  • Line Location: WRITE+3
Function Call: WRITE
  • Prompt: ?115,$J($S(X:X,1:1),3)
  • Line Location: WRITE+3
Function Call: WRITE
  • Prompt: ?120,$S($P(DGX,"^",4)="":"",$P(DGX,"^",4)="a":"ADMITTED",1:"DISMISSED")
  • Line Location: WRITE+4
Function Call: WRITE
  • Prompt: !?37,"COMMENTS: ",$P(DGX,"^",6)
  • Line Location: WRITE+4
Function Call: WRITE
  • Prompt: @IOF,!,"CURRENT LODGERS "
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: "AT OTHER FACILITIES "
  • Condition for execution: DGOF=2
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: "AS OF ",DGNOW,?122,"PAGE: ",$J(DGPG,3)
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !!,"PATIENT",?27,"SHORT ID",?37,"CHECKED IN",?59,"BED",?76,"REASON"
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: ?93,"CHECKED OUT",?115,"LOS",?120,"DISPOSITION"
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: ?93,"CHECKED OUT",?115,"LOS",?120,"DISPOSITION"
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: ?98,"COMMENTS"
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: !,Z
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: !!?(62-($L(W)/2)),W
  • Line Location: WARD+1
Function Call: WRITE
  • Prompt: !!?(60-($L(X)/2)),X
  • Line Location: WARD+2
Info |  Source |  Entry Points |  Interaction Calls