DGVPT3.m

DGVPT3 ;ALB/MTC - DG POST-INIT DRIVER CONTINUED ; 27 MAR 91

 ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21

 ;

COMP ;Reminder to recompile templates and cross-references on all CPU's

 W !!,">>> Remember to recompile the following templates on all CPU's..."

 W !!?4,"Template",?30,"Routine",?45,"Type",?55,"Routine Used to Recompile",!?4,"--------",?30,"-------",?45,"----",?55,"-------------------------"

 F I=1:1 S J=$P($T(TEMP+I),";;",2) Q:J="QUIT"  W !?4,$P(J,";",1),?30,$P(J,";",2),?45,$S($P(J,";",3)="I":"INPUT",1:"PRINT"),?64,$S($P(J,";",3)="I":"DIEZ",1:"DIPZ")

 ;

 W !!!,">>> Remember to recompile the cross-references for the following files",!?4,"on all CPU's..."

 W !!?4,"File",?30,"Routine",?45,"Type",?55,"Routine Used to Recompile",!?4,"----",?30,"-------",?45,"----",?55,"-------------------------"

 F I=1:1 S J=$P($T(FILE+I),";;",2) Q:J="QUIT"  W !?4,$P(J,";",1),?30,$P(J,";",2),?45,"X-REF",?64,"DIKZ"

 W !!,"NOTE:  To recompile all PIMS compiled templates and compiled ",!?7,"cross-references you can call ALL^DGUTL1."

 Q

 ;

TEMP ;

 ;;DGPM ADMIT;DGPMX1;I

 ;;DGPM TRANSFER;DGPMX2;I

 ;;DGPM DISCHARGE;DGPMX3;I

 ;;DGPM CHECK-IN LODGER;DGPMX4;I

 ;;DGPM LODGER CHECK-OUT;DGPMX5;I

 ;;DGPM SPECIALTY TRANSFER;DGPMX6;I

 ;;DGPM ASIH ADMIT;DGPMXAS;I

 ;;DG PTF ADD MESSAGE;DGPTXMS;I

 ;;DG PTF CREATE PTF ENTRY;DGPTXC;I

 ;;DG PTF POST CREATE;DGPTXCA;I

 ;;DG101;DGPTX1;I

 ;;DG401;DGPTX4;I

 ;;DG501;DGPTX5;I

 ;;DG501F;DGX5F;I

 ;;DG701;DGPTX7;I

 ;;DG CONSISTENCY CHECKER;DGRPXC;I

 ;;DG LOAD EDIT SCREEN 7;DGRPXX7;I

 ;;DGRP COLLATERAL REGISTER;DGRPXCR;I

 ;;DG PTF PT BRIEF LIST;DGPTXB;P

 ;;DGPT QUICK PROFILE;DGPTXCP;P

 ;;DGJ EDIT IRT RECORD;DGJXE;I

 ;;DGJ ENTER IRT RECORD;DGJXA;I

 ;;DGMT ENTER/EDIT ANNUAL INCOME;DGMTXI;I

 ;;DGMT ENTER/EDIT COMPLETION;DGMTXC;I

 ;;DGMT ENTER/EDIT DEPENDENTS;DGMTXD;I

 ;;DGMT ENTER/EDIT EXPENSES;DGMTXE;I

 ;;DGMT ENTER/EDIT MARITAL STATUS;DGMTXM;I

 ;;DGRP ENTER/EDIT ANNUAL INCOME;DGRPXIS;I

 ;;DGMT ENTER/EDIT NET WORTH;DGMTXN;I

 ;;DGTS;DGXTS;I

 ;;DVBHINQ UPDATE;DVBHCE;I

 ;;DVBC ADD 2507 PAT;DVBCDAT;I

 ;;QUIT

 ;

FILE ;

 ;;PTF (#45);DGPTXX

 ;;PATIENT MOVEMENT (#405);DGPMXX

 ;;INDIVIDUAL ANNUAL INCOME (#408.21);DGMTXX1

 ;;INCOME RELATION (#408.22);DGMTXX2

 ;;ANNUAL MEANS TEST (#408.31);DGMTXX3

 ;;QUIT

DGVPT3    ;ALB/MTC - DG POST-INIT DRIVER CONTINUED ; 27 MAR 91

 +1       ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21

 +2       ;

COMP      ;Reminder to recompile templates and cross-references on all CPU's

 +1        WRITE !!,">>> Remember to recompile the following templates on all CPU's..."

 +2        WRITE !!?4,"Template",?30,"Routine",?45,"Type",?55,"Routine Used to Recompile",!?4,"--------",?30,"-------",?45,"----",?55,"-------------------------"

 +3        FOR I=1:1

               SET J=$PIECE($TEXT(TEMP+I),";;",2)

               IF J="QUIT"

                   QUIT 

               WRITE !?4,$PIECE(J,";",1),?30,$PIECE(J,";",2),?45,$SELECT($PIECE(J,";",3)="I":"INPUT",1:"PRINT"),?64,$SELECT($PIECE(J,";",3)="I":"DIEZ",1:"DIPZ")

 +4       ;

 +5        WRITE !!!,">>> Remember to recompile the cross-references for the following files",!?4,"on all CPU's..."

 +6        WRITE !!?4,"File",?30,"Routine",?45,"Type",?55,"Routine Used to Recompile",!?4,"----",?30,"-------",?45,"----",?55,"-------------------------"

 +7        FOR I=1:1

               SET J=$PIECE($TEXT(FILE+I),";;",2)

               IF J="QUIT"

                   QUIT 

               WRITE !?4,$PIECE(J,";",1),?30,$PIECE(J,";",2),?45,"X-REF",?64,"DIKZ"

 +8        WRITE !!,"NOTE:  To recompile all PIMS compiled templates and compiled ",!?7,"cross-references you can call ALL^DGUTL1."

 +9        QUIT 

 +10      ;

TEMP      ;

 +1       ;;DGPM ADMIT;DGPMX1;I

 +2       ;;DGPM TRANSFER;DGPMX2;I

 +3       ;;DGPM DISCHARGE;DGPMX3;I

 +4       ;;DGPM CHECK-IN LODGER;DGPMX4;I

 +5       ;;DGPM LODGER CHECK-OUT;DGPMX5;I

 +6       ;;DGPM SPECIALTY TRANSFER;DGPMX6;I

 +7       ;;DGPM ASIH ADMIT;DGPMXAS;I

 +8       ;;DG PTF ADD MESSAGE;DGPTXMS;I

 +9       ;;DG PTF CREATE PTF ENTRY;DGPTXC;I

 +10      ;;DG PTF POST CREATE;DGPTXCA;I

 +11      ;;DG101;DGPTX1;I

 +12      ;;DG401;DGPTX4;I

 +13      ;;DG501;DGPTX5;I

 +14      ;;DG501F;DGX5F;I

 +15      ;;DG701;DGPTX7;I

 +16      ;;DG CONSISTENCY CHECKER;DGRPXC;I

 +17      ;;DG LOAD EDIT SCREEN 7;DGRPXX7;I

 +18      ;;DGRP COLLATERAL REGISTER;DGRPXCR;I

 +19      ;;DG PTF PT BRIEF LIST;DGPTXB;P

 +20      ;;DGPT QUICK PROFILE;DGPTXCP;P

 +21      ;;DGJ EDIT IRT RECORD;DGJXE;I

 +22      ;;DGJ ENTER IRT RECORD;DGJXA;I

 +23      ;;DGMT ENTER/EDIT ANNUAL INCOME;DGMTXI;I

 +24      ;;DGMT ENTER/EDIT COMPLETION;DGMTXC;I

 +25      ;;DGMT ENTER/EDIT DEPENDENTS;DGMTXD;I

 +26      ;;DGMT ENTER/EDIT EXPENSES;DGMTXE;I

 +27      ;;DGMT ENTER/EDIT MARITAL STATUS;DGMTXM;I

 +28      ;;DGRP ENTER/EDIT ANNUAL INCOME;DGRPXIS;I

 +29      ;;DGMT ENTER/EDIT NET WORTH;DGMTXN;I

 +30      ;;DGTS;DGXTS;I

 +31      ;;DVBHINQ UPDATE;DVBHCE;I

 +32      ;;DVBC ADD 2507 PAT;DVBCDAT;I

 +33      ;;QUIT

 +34      ;

FILE      ;

 +1       ;;PTF (#45);DGPTXX

 +2       ;;PATIENT MOVEMENT (#405);DGPMXX

 +3       ;;INDIVIDUAL ANNUAL INCOME (#408.21);DGMTXX1

 +4       ;;INCOME RELATION (#408.22);DGMTXX2

 +5       ;;ANNUAL MEANS TEST (#408.31);DGMTXX3

 +6       ;;QUIT