PRCHG ;ID/RSD,SF-ISC/TKW/DAP-PROCESS 2237 ;5/8/13 15:39
Source file <PRCHG.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
V | ;;5.1;IFCAP;**81,167,174**;Oct 20, 2000;Build 23
|
|
ES | ;SIGN 2237 IN PPM
|
|
ES1 | ;S PRCHG=$S($D(^PRCD(442.3,+$P(^PRC(443,DA,0),U,7),0)):$P(^(0),U,2),1:""),$P(^PRC(443,DA,0),"^",3)="",P=+PRC("PER")
|
|
Q | ||
RET | ;RETURN TO SERVICE--UPDATE CP BALANCES, ERASE CP OFFICIAL SIGNATURE, SEND BULLETIN BACK TO SERVICE
|
|
SIT | ||
TR | ||
DIC | ||
ST | ||
PPM | ||
EN | ;SIGN 2237 IN PPM
|
|
EN0 | ||
EN1 | ;SIGN 2237 IN PC
|
|
EN10 | ||
EN2 | ;RETURN 2237 IN PC
|
|
EN20 | ;D ST G:'$D(DA) Q S DR="[PRCHPCR]" D ^DIE K PRCHPCR S Z=$S($D(^PRCD(442.3,+$P(^PRC(443,DA,0),U,7),0)):$P(^(0),U,2),1:"") G:Z'=76 EN20
|
|
EN3 | ;SPLIT 2237 IN PPM
|
|
EN30 | ||
EN4 | ;EDIT A SIGNED 2237 IN PPM
|
|
EN40 | ||
EN5 | ;DISPLAY NO.OF REQUESTS TO BE PROCESSED BY PPM
|
|
W1 | ||
STAT |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^PRCS(410 - [#410] | Classic Fileman Calls |
^PRC(443 - [#443] | Classic Fileman Calls |