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

Entry Points

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

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
  • Variable: X
  • Timeout: DTIME
  • 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
  • Variable: X
  • Timeout: DTIME
  • 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
Info |  Source |  Entry Points |  Interaction Calls