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

Package: Registration

Routine: DGPTF2


Information

DGPTF2 ;ALB/JDS,HIOFO/FT,WIOFO/PMK - PTF CORRECTIONS ;3/19/2015 3:43 pm

Source Information

Source file <DGPTF2.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;This code allows the user to edit some PTF record fields.
Q
SET ;
101 ;
701 ;
401 ;
501 ;
601 ;
HEADER ;
DO ;
DO1 ;
D5 ;
D5Q
DIE
D
D1
PRINT ;
CLS ;called from DGPTF4
EN1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Editing patient information:"
  • Line Location: DO+1
Function Call: WRITE
  • Prompt: !!,"Exiting the correction process."
  • Line Location: DO+2
Function Call: WRITE
  • Prompt: !!,"Editing PTF information:"
  • Line Location: DO1+1
Function Call: WRITE
  • Prompt: !!,"Editing ",$S(DG9=601:"Procedure",DG9=401:"Surgery",1:"Movement")," of ",Y
  • Line Location: D5+5
Function Call: WRITE
  • Prompt: !,"Do you want to stop correcting"
  • Line Location: D1+0
Function Call: WRITE
  • Prompt: !?10,"Enter 'YES' or '^' to stop making corrections",!?10,"and 'NO' to continue making corrections"
  • Line Location: D1+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !!,"Error log for PTF record ",PTF," "_$P(^DPT(DFN,0),U,1)_" ",Y,!!
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !,"Performing edit checks..."
  • Line Location: CLS+2
Function Call: WRITE
  • Prompt: !,"Cannot close without proper fileman access",*7
  • Line Location: CLS+16
Function Call: WRITE
  • Prompt: !,"****** PTF CLOSED OUT ******"
  • Line Location: CLS+19

FileMan Files Accessed Via FileMan Db Call

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