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

Package: Registration

Routine: DGPTF


Information

DGPTF ;ALB/JDS,AS - PTF LOAD/EDIT DRIVER ;Aug 20, 2020@09:28

Source Information

Source file <DGPTF.m>

Entry Points

Name Comments DBIA/ICR reference
ASK
EN1 ;
GETD ;
Q
Q1 ; -- housekeeping
SUF
ORDER ; -- order mvt ; I1 := #mvts+1 ; M() := mvt array
ADM
WR ;Called from ^DD(45,0,"ID","WR")
DC
UP

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !," Updating TRANSFER DRGs"
  • Line Location: Q+0
Function Call: WRITE
  • Prompt: !,"Not after first movement"
  • Line Location: ADM+0
Function Call: WRITE
  • Prompt: !,"There is already a PTF entry at that time"
  • Line Location: ADM+1
Function Call: WRITE
  • Prompt: " Admitted: ",$TR($$FMTE^XLFDT(DGADM,"5DF")," ","0")," "
  • Line Location: WR+1
Function Call: WRITE
  • Prompt: $P($P(%,";"_$P(DGNODE,U,DGZ)_":",2),";",1)_" "
  • Line Location: WR+4
Function Call: WRITE
  • Prompt: !,"Pointer from Patient file is incorrect. Record changed to Fee Basis",!
  • Line Location: UP+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGPT - [#45] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call