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 |  FileMan Files Accessed Via FileMan Db Call |  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 [ 03/17/2004 1:52 PM ]

Source Information

Source file <DGPMOLD1.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 3 (,NOW)^%DTC  $$GET1^DIQ  ^DIR  
Registration 1 PID^VADPT6  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGPMOLD  

Entry Points

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

External References

Name Field # of Occurrence
^%DTC WRITE+3
NOW^%DTC STORE
$$GET1^DIQ STORE+5, SORT+4
^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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGPM - [#405] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" STORE, WRITE+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+5, SORT, SORT+1, SORT+6, SORT+7
^DGPM("AMV4" DR+1
^DGPM("ATID4" STORE+5
^DGPM("LD" STORE+2
^DIC(42 - [#42] STORE+2, SORT+4, SORT+5
^DPT - [#2] SORT+7
^UTILITY($J SORT+7*, PRINT+1, NEWWARD+1

Label References

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

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % STORE
>> DFN SORT+6*, SORT+7, WRITE+1*
>> DGEND STORE*, HEAD+2
>> DGFL PRINT+1*, WRITE, HEAD*
>> DGFR STORE, SORT+1
>> DGFROM STORE*, HEAD+2
>> DGHOW STORE, STORE+1, SORT, SORT+4, SORT+5, WRITE+2, HEAD+1, HEAD+2, HEAD+3
>> DGNOW STORE*, HEAD+1
>> DGOF STORE+5, SORT, NEWWARD+1*, HEAD+1, HEAD+2
>> DGONE PRINT+1*, WRITE, NEWWARD, HEAD, HEAD+3*
>> DGPG PRINT+1*, HEAD+1*, HEAD+2
>> DGTO STORE, DR+1
>> DGX STORE+2*, SORT+4*, SORT+5*, PRINT+1*, WRITE+1, WRITE+2, WRITE+3, WRITE+4, DIV*
>> DIR(0 HEAD*
>> I STORE+2*, STORE+5*, DR+1*, PRINT+1*
IOF HEAD+1, HEAD+2
IOSL WRITE, NEWWARD
IOST HEAD
>> J STORE+2*, STORE+5*, DR+1*, SORT, SORT+4, SORT+6, PRINT+1*, WRITE+1, WRITE+3
>> K DR+1*, PRINT+1*, WRITE+1
>> L SORT+6*, SORT+7, PRINT+1*
>> R SORT*, SORT+7
>> VA("BID" WRITE+1
>> VAUTD DIV
>> VAUTD( DIV
>> VAUTW STORE+2, SORT+4
>> VAUTW( STORE+2, SORT+4
>> W STORE+1*, STORE+2*, STORE+5*, SORT+4*, SORT+7, PRINT+1*, NEWWARD+1, WARD+1, WARD+2
>> X STORE+5*, SORT*, SORT+1, SORT+4, SORT+6, SORT+7, 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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All