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

Package: Registration

Routine: DGPTEXPR


Information

DGPTEXPR ;ALB/MTC - PTF Expanded Code List ;14 MAY 91

Source Information

Source file <DGPTEXPR.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; -- entry point for Expanded Code List (ICD-10 Remediation)
ENQ ; -- exit point
STARTCAT(CSET) ; -- Start Code Set
FINALCAT(CSET,STRT) ; -- Start Code Set
FC ; - Re-ask
STARTCOD(CSET) ; -- Start Code Set
R1 ;
SC ; Re-ask
FINALCOD(CSET,STRT) ; -- Start Code Set
R2 ;
FCCC ; Re-ask
INIT ;
CODESET ; -ask which codeset
HELP1 ; -- Code help text
LIST(CSET,CAT) ; -- List available codes

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"PTF Expanded Code List "
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,"Go To value must equal or follow the Start With value",*7,!
  • Line Location: FC+9
Function Call: READ
  • Formatting: !
  • Prompt: " START WITH DIAGNOSIS/PROCEDURE CODE: FIRST// "
  • Variable: Y
  • Timeout: DTIME
  • Line Location: R1+1
Function Call: READ
  • Formatting: !
  • Prompt: " GO TO DIAGNOSIS/PROCEDURE CODE: LAST// "
  • Variable: Y
  • Timeout: DTIME
  • Line Location: R2+1
Function Call: WRITE
  • Prompt: !,"Go To value must equal or follow the Start With value",*7,!
  • Line Location: FCCC+13
Function Call: WRITE
  • Prompt: !!,"TO IN SEQUENCE, STARTING FROM A CERTAIN DIAGNOSIS/PROCEDURE CODE, "
  • Line Location: HELP1+1
Function Call: WRITE
  • Prompt: !," TYPE THAT DIAGNOSIS/PROCEDURE CODE"
  • Line Location: HELP1+2
Function Call: WRITE
  • Prompt: !," OR ENTER '@' TO INCLUDE NULL DIAGNOSIS/PROCEDURE CODE VALUES"
  • Line Location: HELP1+3
Function Call: WRITE
  • Prompt: !," OR ENTER 'FIRST' TO START FROM THE FIRST VALUE"
  • Line Location: HELP1+4
Function Call: WRITE
  • Prompt: !," Choose from:",!
  • Line Location: LIST+2
Function Call: WRITE
  • Prompt: ?3,ENTRY,?15,IENCAT,!
  • Line Location: LIST+15
Function Call: WRITE
  • Prompt: ?3,ENTRY,?15,IENCAT,!
  • Line Location: LIST+16
Function Call: READ
  • Prompt: " '^' TO STOP: "
  • Variable: ZZ
  • Timeout: $G(DTIME,300)
  • Line Location: LIST+17

FileMan Files Accessed Via FileMan Db Call

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