Changeset 636 for FOIAVistA/tag/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGPTX41.m
- Timestamp:
- Dec 4, 2009, 8:26:01 PM (14 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGPTX41.m
r628 r636 1 DGPTX41 ; ;12/ 12/071 DGPTX41 ; ;12/27/07 2 2 D DE G BEGIN 3 3 DE S DIE="^DGPT(D0,""S"",",DIC=DIE,DP=45.01,DL=2,DIEL=1,DU="" K DG,DE,DB Q:$O(^DGPT(D0,"S",DA,""))="" … … 69 69 C5S S X="" G:DG(DQ)=X C5F1 K DB 70 70 C5F1 S DIEZRXR(45.01,DIIENS)=$$OREF^DILF($NA(@$$CREF^DILF(DIE))) 71 F DIXR=4 22,423,424,425,426S DIEZRXR(45.01,DIXR)=""71 F DIXR=437,438,439,440,441 S DIEZRXR(45.01,DIXR)="" 72 72 Q 73 73 X5 S %DT="ETX" D ^%DT S X=+Y K:Y<1 X I $D(X) X $S(X<$P(^DGPT(DA(1),0),U,2):"W !,""Not before admission"" K X",X>($S($D(^(70)):$S(+^(70):+^(70),1:9999999),1:9999999)):"W !,""Not after discharge"" K X",1:"") … … 115 115 S ^DGPT(DA(1),"S","AO",$E(X,1,30),DA)="" 116 116 C15F1 S DIEZRXR(45.01,DIIENS)=$$OREF^DILF($NA(@$$CREF^DILF(DIE))) 117 F DIXR=4 22S DIEZRXR(45.01,DIXR)=""117 F DIXR=437 S DIEZRXR(45.01,DIXR)="" 118 118 Q 119 119 X15 S DIC("S")="S DGI=8,DGCR=""AO"",DGSB=""S"" D EN1^DGPTFJC K DGI,DGCR,DGSB,K I 'DGER" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X … … 141 141 S ^DGPT(DA(1),"S","AO",$E(X,1,30),DA)="" 142 142 C20F1 S DIEZRXR(45.01,DIIENS)=$$OREF^DILF($NA(@$$CREF^DILF(DIE))) 143 F DIXR=4 23S DIEZRXR(45.01,DIXR)=""143 F DIXR=438 S DIEZRXR(45.01,DIXR)="" 144 144 Q 145 145 X20 S DIC("S")="S DGI=9,DGCR=""AO"",DGSB=""S"" D EN1^DGPTFJC K DGI,DGCR,DGSB,K I 'DGER" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X … … 165 165 D ^DGPTX43 166 166 C25F1 S DIEZRXR(45.01,DIIENS)=$$OREF^DILF($NA(@$$CREF^DILF(DIE))) 167 F DIXR=4 24S DIEZRXR(45.01,DIXR)=""167 F DIXR=439 S DIEZRXR(45.01,DIXR)="" 168 168 Q 169 169 X25 S DIC("S")="S DGI=10,DGCR=""AO"",DGSB=""S"" D EN1^DGPTFJC K DGI,DGCR,DGSB,K I 'DGER" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
Note:
See TracChangeset
for help on using the changeset viewer.