source:
FOIAVistA/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DG3PR.m@
1397
| Last change on this file since 1397 was 628, checked in by , 15 years ago | |
|---|---|
| File size: 815 bytes | |
| Line | |
|---|---|
| 1 | DG3PR ;ALB/JDS - THIRD PARTY REIMBURSMENT ;01 JAN 1987 |
| 2 | ;;5.3;Registration;;Aug 13, 1993 |
| 3 | EN W ! R "Sort by Discharge or Admission: D// ",X:DTIME S Z="^DISCHARGE^ADMISSION" Q:X["^"!'$T I X="" S X="D" W X |
| 4 | D IN^DGHELP I %<0 W !!,"CHOOSE FROM",!?4,"A - ADMISSION",!?4,"D - DISCHARGE",!?4,"^ - To QUIT",! G EN |
| 5 | S DGBY=$S(X="D":"ATT3",1:"ATT1") |
| 6 | DAT S %DT(0)="-DT",%DT="AEPX",%DT("A")="START DATE: " D ^%DT G Q:X["^",DAT:Y<0 S DGFR=Y-.1 |
| 7 | S %DT("A")=" END DATE: ",%DT(0)=DGFR+.1,%DT="AEPX" D ^%DT G Q:X["^",DAT:Y<0 S DGTO=Y_.9 |
| 8 | S DGVAR="DGBY^DGFR^DGTO",DGPGM="SORT^DG3PR1" D ZIS^DGUTQ I 'POP D SORT^DG3PR1 |
| 9 | Q K %,%DT,C,DFN,DGAD,DGBY,DGCA,DGDC,DGFL,DGFR,DGI,DGJ,DGLOL,DGNOW,DGPGM,DGPMIFN,DGPR,DGPTF,DGTIME,DGTO,DGTR,DGVAR,DIR,DIROUT,DIRUT,DTOUT,DUOUT,I,J,K,L,M,POP,X,X1,X2,Y,Z,^UTILITY("DG",$J) D CLOSE^DGUTQ,KVAR^VADPT Q |
Note:
See TracBrowser
for help on using the repository browser.
