SCMCHLP ;ALB/JDS PCMM WORKLOAD MESSAGE ; 28 Feb 2003 7:54 AM ; Compiled July 8, 2008 16:29:48
Source file <SCMCHLP.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EVN(DATE,ASSDT) | ;create evn segment
|
|
| STF(PH) | ;staff segment
|
|
| ORG(PH) | ;ORG SEGMENT
|
|
| MSH(PH) | ;
|
|
| MSH1 | ;Know DOC nad INSTI
|
|
| ZFT | ||
| HL | ||
| BUILD(VAPTR,HL,XMITARRY,HLIEN) | ;Build array given pointer.
|
|
| PROV(VAPTR) | ;Get internal provider given varible pointer
|
|
| PH(PH) | ;Return provider from position history
|
|
| SUM(PR,INST) | ; get all the positions for this provider
|
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| ^DIC(4 - [#4] | GET1^DIQ |
