Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA FileMan 2 (,NOW)^%DTC  ^DIR  
Registration 1 PID^VADPT6  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGPMOLD  

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

External References

Name Field # of Occurrence
^%DTC WRITE+3
NOW^%DTC STORE
^DIR HEAD
PID^VADPT6 WRITE+1

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
Routine Call
  • DIR
  • Line Location:
    • HEAD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" STOREWRITE+1, WRITE+3
^DG(40.8 - [#40.8] DIV
^DG(405.4 - [#405.4] WRITE+1
^DG(406.41 - [#406.41] WRITE+1
^DGPM - [#405] STORE+3, SORTSORT+1, SORT+4, SORT+5
^DGPM("AMV4" DR+1
^DGPM("ATID4" STORE+3
^DGPM("LD" STORE+2
^DIC(4 - [#4] STORE+3, SORT+2
^DIC(42 - [#42] STORE+2, SORT+2, SORT+3
^DPT - [#2] SORT+5
^UTILITY($J SORT+5*, PRINT+1, NEWWARD+1

Label References

Name Line Occurrences
DIV STORE+2, SORT+3
DR STORE+1
HEAD WRITENEWWARDNEWWARD+1
NEWWARD PRINT+1
PRINT STORE+4, DR+2
SORT STORE+2, STORE+3, DR+1
WARD NEWWARD+2, HEAD+3, HEAD+4
WRITE PRINT+1

Naked Globals

Name Field # of Occurrence
^( STORE+3, DR+1, PRINT+1
^("LD" SORT+4, SORT+5
^(0 STORE+2, STORE+3, SORTSORT+1, SORT+2, SORT+3, SORT+5, WRITE+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % STORE
>> DFN SORT+4*, SORT+5, WRITE+1*
>> DGEND STORE*, HEAD+2
>> DGFL PRINT+1*, WRITE, HEAD*
>> DGFR STORESORT+1
>> DGFROM STORE*, HEAD+2
>> DGHOW STORESTORE+1, SORTSORT+2, SORT+3, WRITE+2, HEAD+1, HEAD+2, HEAD+3
>> DGNOW STORE*, HEAD+1
>> DGOF STORE+3, SORTNEWWARD+1*, HEAD+1, HEAD+2
>> DGONE PRINT+1*, WRITENEWWARDHEADHEAD+3*
>> DGPG PRINT+1*, HEAD+1*, HEAD+2
>> DGTO STOREDR+1
>> DGX STORE+2*, SORT+2*, SORT+3*, PRINT+1*, WRITE+1, WRITE+2, WRITE+3, WRITE+4, DIV*
>> DIR(0 HEAD*
>> I STORE+2*, STORE+3*, DR+1*, PRINT+1*
IOF HEAD+1, HEAD+2
IOSL WRITENEWWARD
IOST HEAD
>> J STORE+2*, STORE+3*, DR+1*, SORTSORT+4, PRINT+1*, WRITE+1, WRITE+3
>> K DR+1*, PRINT+1*, WRITE+1
>> L SORT+4*, SORT+5, PRINT+1*
>> R SORT*, SORT+5
>> VA("BID" WRITE+1
>> VAUTD DIV
>> VAUTD( DIV
>> VAUTW STORE+2, SORT+2
>> VAUTW( STORE+2, SORT+2
>> W STORE+1*, STORE+2*, STORE+3*, SORT+2*, SORT+5, PRINT+1*, NEWWARD+1, WARD+1, WARD+2
>> X STORE+3*, SORT*, SORT+1, SORT+2, SORT+4, SORT+5, WRITE+3, WARD+2*
>> X1 WRITE+3*
>> X2 WRITE+3*
>> Y STORE*, WRITE+1*, WRITE+3*, HEAD
Z HEAD+3!*, HEAD+4!*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All