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

Package: Registration

Routine: DGPTF5


Information

DGPTF5 ;ALB/MTC/PLT - PTF ENTRY/EDIT-4 ;07 JUN 91

Source Information

Source file <DGPTF5.m>

Entry Points

Name Comments DBIA/ICR reference
Z
Z1
CEN ;
ASK
ICDEN ;enter icd codes
ICDEN1 ;enter icd codes for DRG
; called from DGPTFIC and DGPTDRG
; removed kills to X and Y and set for DIC("A")to suppress prompts DG*5.3*850
GETICD9(EFFDATE) ;enter icd codes
GET9Q ; exit point

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @DGVI,Z,@DGVO
  • Line Location: Z+0
Function Call: WRITE
  • Prompt: " "
  • Line Location: Z+1
Function Call: WRITE
  • Prompt: Z
  • Line Location: Z1+1
Function Call: WRITE
  • Prompt: !!,*7,"Record #",PTF," MUST be closed for CENSUS first.",!
  • Line Location: CEN+1
Function Call: WRITE
  • Prompt: !,"Would you like to close this record for CENSUS"
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !?5,"Answer 'YES' to close record for CENSUS also",!?5," or 'NO' to not close this record at all."
  • Line Location: ASK+1

FileMan Files Accessed Via FileMan Db Call

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