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

Package: Registration

Routine: DGPTFM7


Information

DGPTFM7 ;ALB/MJ/PLT - Display Phys. MPCR mvts ; 11/30/06 8:31am

Source Information

Source file <DGPTFM7.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Registration 5 Q^DGPTF  ^DGPTFJ  Z^DGPTFM  HEAD^DGPTFMO  FDT^DGPTUTL  
VA FileMan 1 ^%DTC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Registration 2 DGPTF  DGPTFM71  

Entry Points

Name Comments DBIA/ICR reference
EN ; entry pt to display MPCR screen
; -- PTF and DGPTFMT must be defined
HELP ; -- screen help
PRT ; -- collect 501 and 535 data and then print
;
INQ ; -- entry point for inquire option
HEADER ;
KILL ; -- kill off locals
BYPASS
DT
LOOP ;

External References

Name Field # of Occurrence
^%DTC PRT+6
Q^DGPTF LOOP+11
^DGPTFJ LOOP+14
Z^DGPTFM HEADER+2
HEAD^DGPTFMO HEADER+1
FDT^DGPTUTL EN+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!," MPCR information not required for this admission."
  • Line Location: LOOP+2
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOP+6
Function Call: WRITE
  • Prompt: X
  • Line Location: LOOP+8
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: LOOP+10
Function Call: WRITE
  • Prompt: !,"Press return to see more MPCR information"
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !,"Press return to go to the 'MAS' screen"
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !," '^' to stop the display"
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: !," '^N' to jump to screen #N (appears in upper right of screen '<N>')"
  • Line Location: HELP+4
Function Call: WRITE
  • Prompt: @IOF,HEAD,?72
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !?23,"Rec",?38,"Losing Ward",?54,"PTF"
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !?4,"Losing Date",?23,"Type",?28,"Ward/DRG",?38,"MPCR/Spec",?54,"MPCR/Spec",?68,"Lve/Pas/ Los"
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !,"--------------------------------------------------------------------------------"
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: !,$J(DGC,3),?4,DGLDTE,?23,DGMTY,?28,DGWARD,?38,DG5CDR,?54,DGMCDR,?68,DGLVE,"/",DGPASS,"/",DGLOS,!?28,DGMDRG,?38,DG5SP,?54,DGMSP
  • Line Location: PRT+25
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: INQ+3
Function Call: WRITE
  • Prompt: *7
  • Line Location: INQ+3
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: INQ+4
Function Call: WRITE
  • Prompt: !
  • Line Location: INQ+4
Function Call: WRITE
  • Prompt: !
  • Line Location: INQ+4
Function Call: WRITE
  • Prompt: !,"("_$P(^DPT(+^DGPT(D0,0),0),U,1)_")",!
  • Line Location: INQ+5
Function Call: WRITE
  • Prompt: $P("JAN^FEB^MAR^APR^MAY^JUN^JUL^AUG^SEP^OCT^NOV^DEC",U,$E(Y,4,5))," "
  • Line Location: DT+0
Function Call: WRITE
  • Prompt: $J(Y#100\1,2),","
  • Condition for execution: Y#100
  • Line Location: DT+0
Function Call: WRITE
  • Prompt: Y\10000+1700
  • Line Location: DT+0
Function Call: WRITE
  • Prompt: " ",$E(Y_0,9,10),":",$E(Y_"000",11,12)
  • Condition for execution: Y#1
  • Line Location: DT+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PRT+8
^DGPT - [#45] EN+5, EN+6, PRT+2, PRT+4, INQ+5
^DIC(42 - [#42] PRT+23
^DIC(42.4 - [#42.4] PRT+11, PRT+12, PRT+13, PRT+17, PRT+18, PRT+19
^DPT - [#2] INQ+5
^UTILITY($J EN+5*, EN+7, LOOP+3, KILL+1!, PRT+2, PRT+4, INQ+4

Label References

Name Line Occurrences
@( LOOP+9
BYPASS EN+3
EN INQ+2
HEADER LOOP+1
KILL LOOP+4, LOOP+11, LOOP+14, INQ+2
LOOP LOOP+12, HELP+6
PRT LOOP+3

Naked Globals

Name Field # of Occurrence
^( EN+5, EN+7*, LOOP+3, PRT+2, PRT+4
^("DG535" KILL+1!
^("DGM" KILL+1!
^("P" PRT+2
^(0 EN+5, EN+6, PRT+2, PRT+4, PRT+23
^(2 INQ+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % INQ+4*
>> D0 INQ+2, INQ+5
>> DC INQ+2*
DG5CDR KILL+1!, PRT+22*, PRT+25
DG5SP KILL+1!, PRT+18*, PRT+19*, PRT+20*, PRT+21*, PRT+25
>> DGBRCH LOOP+9
DGC BYPASS*, LOOP+1, LOOP+3, LOOP+5, LOOP+10, LOOP+12, HELP+1, HELP+2, HELP+6*, KILL+1!
, PRT+7*, PRT+25
DGCDR KILL+1!
DGCDR0 KILL+1!, PRT+2*, PRT+4*, PRT+17, PRT+18, PRT+19, PRT+22, PRT+23
DGFMTDT EN+4*, EN+6, EN+7, LOOP+3, KILL+1!
DGI0 KILL+1!
DGICDR KILL+1!
DGLAST KILL+1!
DGLAST("C" LOOP+1*, HELP+6
DGLAST("DT" LOOP+1*, HELP+6
DGLDT BYPASS*, LOOP+1, LOOP+3*, HELP+6*, KILL+1!, PRT+2, PRT+4, PRT+6, PRT+8
DGLDTE KILL+1!, PRT+8*, PRT+25
DGLOS PRT+6~*, PRT+25
DGLVE KILL+1!, PRT+7*, PRT+25
DGM0 KILL+1!, PRT+2*, PRT+4*, PRT+11, PRT+12, PRT+13, PRT+16
DGMAX EN+3*, LOOP+3, KILL+1!
DGMCDR KILL+1!, PRT+16*, PRT+25
DGMDRG KILL+1!, PRT+2*, PRT+4*, PRT+25
DGMSP KILL+1!, PRT+12*, PRT+13*, PRT+14*, PRT+15*, PRT+25
DGMTY KILL+1!, PRT+2*, PRT+4*, PRT+25
DGPASS KILL+1!, PRT+7*, PRT+25
>> DGPR LOOP+3, LOOP+4, HEADER+1, HEADER+2, INQ+2*
>> DGPTFMT EN+3, LOOP+2
DGPTIFN EN+3*, EN+5, EN+6, KILL+1!, PRT+2, PRT+4
>> DGPTOUT LOOP+10*
>> DGPTSCRN LOOP+14*
DGTOT EN+3*, EN+7*, LOOP+3, LOOP+5, LOOP+10, LOOP+12, HELP+1, HELP+2, KILL+1!
DGWARD KILL+1!, PRT+23*, PRT+25
>> DN INQ+3*
DT EN+5
DTIME LOOP+10, HELP+5, INQ+3
>> HEAD HEADER+2
I EN+5*, EN+7*, LOOP+6*, KILL+1!
IOF HEADER+2, INQ+4
IOM INQ+4
IOSL LOOP+1, INQ+2
IOST INQ+3
>> NODE EN+5*
P EN+6*, EN+7*, KILL+1!
PTF EN+3, INQ+2*!
U EN+5, EN+6, PRT+2, PRT+4, PRT+6, PRT+7, PRT+11, PRT+12, PRT+13, PRT+16
, PRT+17, PRT+18, PRT+19, PRT+22, PRT+23, INQ+3, INQ+5, DT
X LOOP+3*, LOOP+8!*, LOOP+10*, LOOP+11, LOOP+12, LOOP+13*, LOOP+14, HELP+5*, PRT+2, PRT+4
, PRT+6*, INQ+3*
>> X1 PRT+6*
>> X2 PRT+6*
>> Y EN+4, EN+5*, PRT+2*, PRT+4*, PRT+8*, DT
>> Z HEADER+2*, PRT+2*, PRT+4*, PRT+6, PRT+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All