source: FOIAVistA/tag/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGPTFM1A.m@ 1235

Last change on this file since 1235 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.6 KB
Line 
1DGPTFM1A ;ALB/JDS - MASTER DIAG/OP/PRO CODE HELP ;3/28/05 1:05pm
2 ;;5.3;Registration;**517,635**;Aug 13, 1993
3 ;
4HELP 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"
5 W:'DGPTFE "'M'-To edit treating specialty transfers which generate",!,?14,"patient movements"
6 W !?10,"'S'-To add a new surgery record"
7 W !?10,"'T'-To add a new procedure record"
8 W !?10,"'I'-To add a new 801 record"
9 W !?10,"'Z'-To delete a surgery record"
10 W !?10,"'R'-To delete a procedure record"
11 W !?10,"'Y'-To delete an 801 record."
12 W !?10,"'A'-To add an ICD diagnosis"
13 W !?10,"'O'-To add an ICD op code"
14 W !?10,"'P'-To add a new ICD procedure code"
15 W !?10,"'N'-To add a CPT procedure code"
16 W !?10,"'D'-To delete an ICD diagnosis"
17 W !?10,"'C'-To delete a ICD op code"
18 W !?10,"'Q'-To delete a ICD procedure code"
19 W !?10,"'G'-To delete a CPT procedure code"
20 W !?10,"'V'-To review all patient movements",!?10,"'J'-To review all surgery segments"
21 W !?10,"'E'-To review all procedure segments"
22 W !?10,"'F'-To review all 801 segments"
23 W !?10,"'^' to abort",!?10,"<RET> to continue on to the next screen"
24 R !,"Enter <RET> to continue: ",ANS:DTIME K ANS
25 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)"
26 W !!,"The edit code F may be followed by a number to start editing"
27 W !,"the 801 records at that number record."
28 R !!,"Enter <RET> to continue: ",ANS:DTIME K ANS G ^DGPTFM
Note: See TracBrowser for help on using the repository browser.