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
Print Page as PDF
Routine: DGPTFM1A

Package: Registration

Routine: DGPTFM1A


Information

DGPTFM1A ;ALB/JDS - MASTER DIAG/OP/PRO CODE HELP ;3/28/05 1:05pm

Source Information

Source file <DGPTFM1A.m>

Entry Points

Name Comments DBIA/ICR reference
HELP

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Enter ",?10,"'A'-To add an ICD diagnosis",!?10
  • Line Location: HELP+0
Function Call: WRITE
  • Prompt: "'M'-To add a new patient movement",!?10,"'X'-To delete a patient movement"
  • Condition for execution: DGPTFE
  • Line Location: HELP+0
Function Call: WRITE
  • Prompt: !?10,"'S'-To add a new surgery record"
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !?10,"'T'-To add a new procedure record"
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: !?10,"'I'-To add a new 801 record"
  • Line Location: HELP+4
Function Call: WRITE
  • Prompt: !?10,"'Z'-To delete a surgery record"
  • Line Location: HELP+5
Function Call: WRITE
  • Prompt: !?10,"'R'-To delete a procedure record"
  • Line Location: HELP+6
Function Call: WRITE
  • Prompt: !?10,"'Y'-To delete an 801 record."
  • Line Location: HELP+7
Function Call: WRITE
  • Prompt: !?10,"'A'-To add an ICD diagnosis"
  • Line Location: HELP+8
Function Call: WRITE
  • Prompt: !?10,"'O'-To add an ICD op code"
  • Line Location: HELP+9
Function Call: WRITE
  • Prompt: !?10,"'P'-To add a new ICD procedure code"
  • Line Location: HELP+10
Function Call: WRITE
  • Prompt: !?10,"'N'-To add a CPT procedure code"
  • Line Location: HELP+11
Function Call: WRITE
  • Prompt: !?10,"'D'-To delete an ICD diagnosis"
  • Line Location: HELP+12
Function Call: WRITE
  • Prompt: !?10,"'C'-To delete a ICD op code"
  • Line Location: HELP+13
Function Call: WRITE
  • Prompt: !?10,"'Q'-To delete a ICD procedure code"
  • Line Location: HELP+14
Function Call: WRITE
  • Prompt: !?10,"'G'-To delete a CPT procedure code"
  • Line Location: HELP+15
Function Call: WRITE
  • Prompt: !?10,"'V'-To review all patient movements",!?10,"'J'-To review all surgery segments"
  • Line Location: HELP+16
Function Call: WRITE
  • Prompt: !?10,"'E'-To review all procedure segments"
  • Line Location: HELP+17
Function Call: WRITE
  • Prompt: !?10,"'F'-To review all 801 segments"
  • Line Location: HELP+18
Function Call: WRITE
  • Prompt: !?10,"'^' to abort",!?10,"<RET> to continue on to the next screen"
  • Line Location: HELP+19
Function Call: READ
  • Formatting: !
  • Prompt: "Enter <RET> to continue: "
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: HELP+20
Function Call: WRITE
  • Prompt: !,"The delete codes (D,C,Q,G) may be followed by the numbers that are before the",!,"ICD codes, separated by commas. ('D1,2,8' to delete ICD diagnoses 1,2 and 8",!,"if they were on the screen above)"
  • Line Location: HELP+21
Function Call: WRITE
  • Prompt: !!,"The edit code F may be followed by a number to start editing"
  • Line Location: HELP+22
Function Call: WRITE
  • Prompt: !,"the 801 records at that number record."
  • Line Location: HELP+23
Function Call: READ
  • Formatting: !!
  • Prompt: "Enter <RET> to continue: "
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: HELP+24
Info |  Source |  Entry Points |  Interaction Calls