| [613] | 1 | PRCALET ;WASH-ISC@ALTOONA,PA/CMS-PRINT FORM LETTERS ;6/4/93 8:43 AM
|
|---|
| 2 | V ;;4.5;Accounts Receivable;**198**;Mar 20, 1995
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | NEW DIC,IOP,SITE,PRCABN,PRCALT,POP,X,Y,ZTDESC,ZTRTN,ZTSAVE,ZTSK,%ZIS
|
|---|
| 5 | S DIC="^RC(343,",DIC("A")="ENTER THE FORM LETTER TO TEST: ",DIC(0)="AEQM" D ^DIC K DIC G:Y<0 Q S PRCALT=+Y
|
|---|
| 6 | N DPTNOFZY,DPTNOFZK S (DPTNOFZY,DPTNOFZK)=1
|
|---|
| 7 | S DIC="^PRCA(430,",DIC(0)="AEQM" D ^DIC K DIC G:Y<0 Q S PRCABN=+Y
|
|---|
| 8 | ST W ! S IOP="Q",%ZIS="NQ" S %ZIS("B")="" D ^%ZIS G:POP Q
|
|---|
| 9 | I '$D(IO("Q")) W !!,"YOU MUST QUEUE THE OUTPUT" G ST
|
|---|
| 10 | S ZTRTN="QUE^PRCALET",ZTDESC="Print Form Letter",ZTSAVE("PRCALT")="",ZTSAVE("PRCABN")="" D ^%ZTLOAD
|
|---|
| 11 | Q D ^%ZISC Q
|
|---|
| 12 | QUE D PRT^PRCAGF(PRCALT,PRCABN)
|
|---|
| 13 | Q
|
|---|
