Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DGVPT3

DGVPT3.m

Go to the documentation of this file.
  1. DGVPT3 ;ALB/MTC - DG POST-INIT DRIVER CONTINUED ; 27 MAR 91
  1. ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21
  1. ;
  1. COMP ;Reminder to recompile templates and cross-references on all CPU's
  1. W !!,">>> Remember to recompile the following templates on all CPU's..."
  1. W !!?4,"Template",?30,"Routine",?45,"Type",?55,"Routine Used to Recompile",!?4,"--------",?30,"-------",?45,"----",?55,"-------------------------"
  1. 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")
  1. ;
  1. W !!!,">>> Remember to recompile the cross-references for the following files",!?4,"on all CPU's..."
  1. W !!?4,"File",?30,"Routine",?45,"Type",?55,"Routine Used to Recompile",!?4,"----",?30,"-------",?45,"----",?55,"-------------------------"
  1. 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"
  1. W !!,"NOTE: To recompile all PIMS compiled templates and compiled ",!?7,"cross-references you can call ALL^DGUTL1."
  1. Q
  1. ;
  1. TEMP ;
  1. ;;DGPM ADMIT;DGPMX1;I
  1. ;;DGPM TRANSFER;DGPMX2;I
  1. ;;DGPM DISCHARGE;DGPMX3;I
  1. ;;DGPM CHECK-IN LODGER;DGPMX4;I
  1. ;;DGPM LODGER CHECK-OUT;DGPMX5;I
  1. ;;DGPM SPECIALTY TRANSFER;DGPMX6;I
  1. ;;DGPM ASIH ADMIT;DGPMXAS;I
  1. ;;DG PTF ADD MESSAGE;DGPTXMS;I
  1. ;;DG PTF CREATE PTF ENTRY;DGPTXC;I
  1. ;;DG PTF POST CREATE;DGPTXCA;I
  1. ;;DG101;DGPTX1;I
  1. ;;DG401;DGPTX4;I
  1. ;;DG501;DGPTX5;I
  1. ;;DG501F;DGX5F;I
  1. ;;DG701;DGPTX7;I
  1. ;;DG CONSISTENCY CHECKER;DGRPXC;I
  1. ;;DG LOAD EDIT SCREEN 7;DGRPXX7;I
  1. ;;DGRP COLLATERAL REGISTER;DGRPXCR;I
  1. ;;DG PTF PT BRIEF LIST;DGPTXB;P
  1. ;;DGPT QUICK PROFILE;DGPTXCP;P
  1. ;;DGJ EDIT IRT RECORD;DGJXE;I
  1. ;;DGJ ENTER IRT RECORD;DGJXA;I
  1. ;;DGMT ENTER/EDIT ANNUAL INCOME;DGMTXI;I
  1. ;;DGMT ENTER/EDIT COMPLETION;DGMTXC;I
  1. ;;DGMT ENTER/EDIT DEPENDENTS;DGMTXD;I
  1. ;;DGMT ENTER/EDIT EXPENSES;DGMTXE;I
  1. ;;DGMT ENTER/EDIT MARITAL STATUS;DGMTXM;I
  1. ;;DGRP ENTER/EDIT ANNUAL INCOME;DGRPXIS;I
  1. ;;DGMT ENTER/EDIT NET WORTH;DGMTXN;I
  1. ;;DGTS;DGXTS;I
  1. ;;DVBHINQ UPDATE;DVBHCE;I
  1. ;;DVBC ADD 2507 PAT;DVBCDAT;I
  1. ;;QUIT
  1. ;
  1. FILE ;
  1. ;;PTF (#45);DGPTXX
  1. ;;PATIENT MOVEMENT (#405);DGPMXX
  1. ;;INDIVIDUAL ANNUAL INCOME (#408.21);DGMTXX1
  1. ;;INCOME RELATION (#408.22);DGMTXX2
  1. ;;ANNUAL MEANS TEST (#408.31);DGMTXX3
  1. ;;QUIT