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

Package: Registration

Routine: DGPTFM0


Information

DGPTFM0 ;ALB/MAC/ADL/PLT - ROUTINE TO DISPLAY PROCEDURE CODES ON THE MAS SCREEN IN PTF LOAD/EDIT ;AUG 1 1989@1200

Source Information

Source file <DGPTFM0.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
PD ;
PD1 ;
PD2 ;
PRC ;
C ; -- help for surgery delete code
DX ; -- help for movment delete dx's
Q ; -- help for procedure delete code
Q1
D
D1
DEL
PGBR

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PD1+6
Function Call: WRITE
  • Prompt: !,L6,"-Procedure date: ",Y,$$GETLABEL^DGPTIC10(EFFDATE,"P")
  • Line Location: PD2+1
Function Call: WRITE
  • Prompt: !!,"Enter the item #'s of the operation codes, 1-",S2,", that you wish to delete:"
  • Line Location: C+1
Function Call: WRITE
  • Prompt: !?5,$J(L,2),": "
  • Line Location: C+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: C+5
Function Call: WRITE
  • Prompt: !!,"Enter the item #'s of the diagnoses, 1-",M2,", that you wish to delete:"
  • Line Location: DX+1
Function Call: WRITE
  • Prompt: !?5,$J(L,2),": "
  • Line Location: DX+5
Function Call: WRITE
  • Prompt: !," "
  • Condition for execution: $X>73
  • Line Location: DX+7
Function Call: WRITE
  • Prompt: " (POA=",$S(DGMPOA]"":DGMPOA,1:"''"),")"
  • Line Location: DX+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DX+8
Function Call: WRITE
  • Prompt: !!,"Enter the item #'s of the procedure codes, 1-",P2,", that you wish to delete"
  • Line Location: Q+1
Function Call: WRITE
  • Prompt: !?5,$J(L,2),": "
  • Line Location: Q+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: Q+4
Function Call: WRITE
  • Prompt: !!,"Type the number of the procedure code, 1-",P2P," for 401P transactions"
  • Line Location: Q1+0
Function Call: WRITE
  • Prompt: !,"(admissions prior to 10/1/87) you wish to delete.",!
  • Line Location: Q1+1
Function Call: WRITE
  • Prompt: !,$J(L,3)," "
  • Line Location: Q1+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: Q1+7
Function Call: WRITE
  • Prompt: !,"No codes to delete",!
  • Line Location: D+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: DEL+1
Function Call: WRITE
  • Prompt: " ",L,"-Deleted, "
  • Line Location: DEL+2
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>70
  • Line Location: DEL+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
45.02 FLDNUM^DILFD
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call