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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: DGPTMSG

Package: Registration

Routine: DGPTMSG


Information

DGPTMSG ;ALB/JDS/AS - PTF MESSAGE ENTRY/EDIT/PRINT ; 7 NOV 89 14:46

Source Information

Source file <DGPTMSG.m>

Entry Points

Name Comments DBIA/ICR reference
PAT
PR ;
QQ
IN
PA
M
Q

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"MESSAGE DELETED"
  • Line Location: PAT+5
Function Call: WRITE
  • Prompt: !!,"***** MESSAGE SENT *****",*7,!!
  • Line Location: PAT+7
Function Call: WRITE
  • Prompt: !!," Mess #: ",+L,?20,"Name: ",$E($P(L1,"^",1),1,27),?55," SSN: ",$P(L1,"^",9),!
  • Line Location: PR+1
Function Call: WRITE
  • Prompt: "Entered: "
  • Line Location: PR+2
Function Call: WRITE
  • Prompt: $TR($$FMTE^XLFDT(D,"5DF")," ","0")
  • Condition for execution: D
  • Line Location: PR+2
Function Call: WRITE
  • Prompt: ?22,"By: ",$S($D(^VA(200,+$P(L,"^",3),0)):$P(^(0),U,1),1:""),?55,"Ward: ",$S($D(^DPT(DFN,.1)):^(.1),1:"")
  • Line Location: PR+2
Function Call: WRITE
  • Prompt: !," Time: "
  • Line Location: PR+3
Function Call: WRITE
  • Prompt: $E(D,9,10),":",$E(D_"0000",11,12)
  • Condition for execution: D#1
  • Line Location: PR+3
Function Call: WRITE
  • Prompt: ?51,"Room/bed: ",$S($D(^DPT(DFN,.101)):^(.101),1:""),!
  • Line Location: PR+3
Function Call: WRITE
  • Prompt: "Printed: ",$TR($$FMTE^XLFDT(NOW,"5DF")," ","0"),?20,"Time: ",$E(NOW_"00000",9,10)_":"_$E(NOW_"00000",11,12)
  • Line Location: PR+4
Function Call: WRITE
  • Prompt: ?41,"Treating Specialty: ",$S($D(^DPT(DFN,.103)):$S($D(^DIC(45.7,+^(.103),0)):$P(^(0),U,1),1:""),1:""),!
  • Line Location: PR+5
Function Call: WRITE
  • Prompt: "Admission Type: ",$S($D(^DG(405.1,+DGADMTY,0)):$P(^(0),"^",1),1:"NOT SPECIFIED")
  • Line Location: PR+6
Function Call: WRITE
  • Prompt: ?51,"Provider: ",$S($D(^DPT(DFN,.104)):$S($D(^VA(200,+^(.104),0)):$P(^(0),U,1),1:""),1:""),!
  • Line Location: PR+7
Function Call: WRITE
  • Prompt: !,"Edited",?17,"Retran",?25,"By",!
  • Line Location: PR+11
Function Call: WRITE
  • Prompt: "="
  • Line Location: PR+11
Function Call: WRITE
  • Prompt: !,$TR($$FMTE^XLFDT(D,"5DF")," ","0"),"@",$E(D_"0000",9,10),":",$E(D_"00000",11,12),?17,$S($P(L,"^",3):"YES",1:"NO"),?25,$S($D(^VA(200,+$P(L,"^",2),0)):$P(^(0),U,1),1:"")
  • Line Location: PR+12
Function Call: WRITE
  • Prompt: !!," Mess #: ",+L,?20,"Name: ",$E($P(L1,"^",1),1,27),?55," SSN: ",$P(L1,"^",9),!
  • Line Location: PA+1
Function Call: WRITE
  • Prompt: "Entered: ",$TR($$FMTE^XLFDT(D,"5DF")," ","0"),?22,"By: ",$S($D(^VA(200,+$P(L,"^",3),0)):$P(^(0),U,1),1:""),?55,"Ward: ",$S($D(^DPT(DFN,.1)):^(.1),1:"")
  • Line Location: PA+2
Function Call: WRITE
  • Prompt: !," Time: ",$E(D,9,10),":",$E(D_"0000",11,12),?51,"Room/bed: ",$S($D(^DPT(DFN,.101)):^(.101),1:""),!
  • Line Location: PA+3
Function Call: WRITE
  • Prompt: "Printed: "
  • Line Location: PA+4
Function Call: WRITE
  • Prompt: $TR($$FMTE^XLFDT(NOW,"5DF")," ","0")
  • Condition for execution: NOW
  • Line Location: PA+4
Function Call: WRITE
  • Prompt: ?22,"Time: "
  • Line Location: PA+4
Function Call: WRITE
  • Prompt: $TR($$FMTE^XLFDT(NOW,"5DF")," ","0")
  • Condition for execution: NOW
  • Line Location: PA+4
Function Call: WRITE
  • Prompt: ?22,"Time: "
  • Line Location: PA+4
Function Call: WRITE
  • Prompt: "Chk off: ",$TR($$FMTE^XLFDT(N,"5DF")," ","0"),?22,"Time: ",$E(N,9,10)_":"_$E(N,11,12),?53,"By: ",$E($S($D(^VA(200,+$P(L,U,8),0)):$P(^(0),U,1),1:""),1,22),!
  • Line Location: PA+5
Function Call: WRITE
  • Prompt: !,"Edited",?17,"Retran",?25,"By",!
  • Line Location: M+1
Function Call: WRITE
  • Prompt: "="
  • Line Location: M+1
Function Call: WRITE
  • Prompt: !,$TR($$FMTE^XLFDT(D,"5DF")," ","0"),"@",$E(D_"0000",9,10),":",$E(D_"00000",11,12),?17,$S($P(L,"^",3):"YES",1:"NO"),?25,$S($D(^VA(200,+$P(L,"^",2),0)):$P(^(0),U,1),1:"")
  • Line Location: M+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: M+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^DGM - [#45.5] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call