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

Package: Registration

Routine: DGPTFM1


Information

DGPTFM1 ;ALB/MTC/PLT,WOIFO/PMK - MASTER DIAG/OP/PRO CODE ENTER/EDIT ;7/6/15 3:37PM

Source Information

Source file <DGPTFM1.m>

Entry Points

Name Comments DBIA/ICR reference
D
A
A1
A2
M
Z
C
C1
CEL
CEL1 ;
O
O1
O2
S
V
J
Q
QP1
QELP
Q401P
QQ
QEL
P
Q1
T
R
E
MVT ;
I
Y
N
G
F

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"There are no movement records that can be added to.",*7,*7
  • Line Location: A+8
Function Call: READ
  • Variable: RC
  • Timeout: DTIME
  • Line Location: A1+0
Function Call: WRITE
  • Prompt: !!,"Enter the movement record number to add ICD diagnosis to: ",L
  • Line Location: A2+0
Function Call: WRITE
  • Prompt: !,"Editing ",$S(DA=1:"Discharge ",1:""),"Movement "
  • Line Location: M+4
Function Call: WRITE
  • Prompt: "of ",Y
  • Condition for execution: Y]""
  • Line Location: M+4
Function Call: WRITE
  • Prompt: " Losing Specialty ",X
  • Line Location: M+4
Function Call: WRITE
  • Prompt: !,"No surgeries to delete",!
  • Line Location: Z+0
Function Call: READ
  • Variable: RC
  • Timeout: DTIME
  • Line Location: Z+1
Function Call: WRITE
  • Prompt: !
  • Line Location: Z+2
Function Call: WRITE
  • Prompt: !!,"Enter the record # to delete from the PTF file, 1",$S(SU=1:"",1:"-"_SU)
  • Line Location: Z+3
Function Call: WRITE
  • Prompt: " ",RC,"-DELETED***"
  • Line Location: Z+4
Function Call: WRITE
  • Prompt: !,"View Surgery Codes first",!
  • Line Location: C+1
Function Call: WRITE
  • Prompt: !,"No codes to delete",!
  • Line Location: C+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: CEL+1
Function Call: WRITE
  • Prompt: " ",L,"-Deleted, "
  • Line Location: CEL1+1
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>70
  • Line Location: CEL1+1
Function Call: WRITE
  • Prompt: !,"View Surgery Codes first",!
  • Line Location: O+0
Function Call: WRITE
  • Prompt: !,"No codes can be added to a Surgery Record.",!
  • Line Location: O+1
Function Call: WRITE
  • Prompt: !!,"There are no surgery records that can be added to.",*7
  • Line Location: O+10
Function Call: READ
  • Variable: RC
  • Timeout: DTIME
  • Line Location: O1+0
Function Call: WRITE
  • Prompt: !,"View Prodedure Codes first",!
  • Line Location: Q+2
Function Call: WRITE
  • Prompt: !,"No codes to delete",!
  • Line Location: Q+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: QELP+1
Function Call: WRITE
  • Prompt: " ",L,"-",L1
  • Line Location: QELP+3
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>70
  • Line Location: QELP+3
Function Call: WRITE
  • Prompt: " ",L,"-Deleted, "
  • Line Location: QELP+5
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>70
  • Line Location: QELP+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: QEL+1
Function Call: WRITE
  • Prompt: " ",L,"-Deleted, "
  • Line Location: QEL+7
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>70
  • Line Location: QEL+7

FileMan Files Accessed Via FileMan Db Call

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