DGPTFM1A ;ALB/JDS - MASTER DIAG/OP/PRO CODE HELP ;3/28/05 1:05pm
;;5.3;Registration;**517,635**;Aug 13, 1993
;
HELP W !!,"Enter ",?10,"'A'-To add an ICD diagnosis",!?10 W:DGPTFE "'M'-To add a new patient movement",!?10,"'X'-To delete a patient movement"
W:'DGPTFE "'M'-To edit treating specialty transfers which generate",!,?14,"patient movements"
W !?10,"'S'-To add a new surgery record"
W !?10,"'T'-To add a new procedure record"
W !?10,"'I'-To add a new 801 record"
W !?10,"'Z'-To delete a surgery record"
W !?10,"'R'-To delete a procedure record"
W !?10,"'Y'-To delete an 801 record."
W !?10,"'A'-To add an ICD diagnosis"
W !?10,"'O'-To add an ICD op code"
W !?10,"'P'-To add a new ICD procedure code"
W !?10,"'N'-To add a CPT procedure code"
W !?10,"'D'-To delete an ICD diagnosis"
W !?10,"'C'-To delete a ICD op code"
W !?10,"'Q'-To delete a ICD procedure code"
W !?10,"'G'-To delete a CPT procedure code"
W !?10,"'V'-To review all patient movements",!?10,"'J'-To review all surgery segments"
W !?10,"'E'-To review all procedure segments"
W !?10,"'F'-To review all 801 segments"
W !?10,"'^' to abort",!?10,"<RET> to continue on to the next screen"
R !,"Enter <RET> to continue: ",ANS:DTIME K ANS
W !,"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)"
W !!,"The edit code F may be followed by a number to start editing"
W !,"the 801 records at that number record."
R !!,"Enter <RET> to continue: ",ANS:DTIME K ANS G ^DGPTFM
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGPTFM1A 1630 printed Oct 16, 2024@18:52:52 Page 2
DGPTFM1A ;ALB/JDS - MASTER DIAG/OP/PRO CODE HELP ;3/28/05 1:05pm
+1 ;;5.3;Registration;**517,635**;Aug 13, 1993
+2 ;
HELP WRITE !!,"Enter ",?10,"'A'-To add an ICD diagnosis",!?10
if DGPTFE
WRITE "'M'-To add a new patient movement",!?10,"'X'-To delete a patient movement"
+1 if 'DGPTFE
WRITE "'M'-To edit treating specialty transfers which generate",!,?14,"patient movements"
+2 WRITE !?10,"'S'-To add a new surgery record"
+3 WRITE !?10,"'T'-To add a new procedure record"
+4 WRITE !?10,"'I'-To add a new 801 record"
+5 WRITE !?10,"'Z'-To delete a surgery record"
+6 WRITE !?10,"'R'-To delete a procedure record"
+7 WRITE !?10,"'Y'-To delete an 801 record."
+8 WRITE !?10,"'A'-To add an ICD diagnosis"
+9 WRITE !?10,"'O'-To add an ICD op code"
+10 WRITE !?10,"'P'-To add a new ICD procedure code"
+11 WRITE !?10,"'N'-To add a CPT procedure code"
+12 WRITE !?10,"'D'-To delete an ICD diagnosis"
+13 WRITE !?10,"'C'-To delete a ICD op code"
+14 WRITE !?10,"'Q'-To delete a ICD procedure code"
+15 WRITE !?10,"'G'-To delete a CPT procedure code"
+16 WRITE !?10,"'V'-To review all patient movements",!?10,"'J'-To review all surgery segments"
+17 WRITE !?10,"'E'-To review all procedure segments"
+18 WRITE !?10,"'F'-To review all 801 segments"
+19 WRITE !?10,"'^' to abort",!?10,"<RET> to continue on to the next screen"
+20 READ !,"Enter <RET> to continue: ",ANS:DTIME
KILL ANS
+21 WRITE !,"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)"
+22 WRITE !!,"The edit code F may be followed by a number to start editing"
+23 WRITE !,"the 801 records at that number record."
+24 READ !!,"Enter <RET> to continue: ",ANS:DTIME
KILL ANS
GOTO ^DGPTFM
