PSBOPM ;BIRMINGHAM/BSR - BCMA OIT HISTORY ;Sep 02, 2020@15:05:53
Source file <PSBOPM.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ;
|
|
OUT(DFN,PSBSTRT,PSBSTOP,PSBORDNM) | ||
GETORDN | ;
|
|
GETOIS | ||
OFROMA(PSBADD) | ;GET ORDERABLE ITEM FROM AN ADDITIVE
|
|
OFROMS(PSBSOL) | ; GET ORDERABLE ITEM FROM A SOLUTION
|
|
GETADSO | ; GET ALL ADDITIVES FOR ALL ORDERABLE ITEMS
|
|
PREOUT | ;
|
|
OUTPUT(TYP) | ;
|
|
STATUS(STATABBR) | ; Give a full status from abbr - PSB*3.0*82 rbd
|
|
SCHED(SCHABBR) | ; Give a full schedule type from abbr - PSB*3.0*82 rbd
|
|
COMNTS | ||
WRAP(SIZE,ZP,BRIEN) | ||
WRAP2(TEXTLINE,MAX,TEXT) | ; Splits Text into TEXT array
|
|
WR0 | ; Loop for Remaining Text
|
|
WRQ | ; Quit Wrap
|
|
HEADA | ;
|
|
ADD(XE,TYP) | ||
WRAPMEDS(W,SITE,MED,UG,UO,UOA,TYP) | ||
PAD(X,CNT) | ;
|
|
WRITEOT | ;
|
|
FTR() | ;
|
|
MEDS(TYP) | ;
|
|
CLEANALL | ||
CLEANSUM | ||
MAKELINE(X,CNT) | ;LINE OF WHAT'S PASSED IN CNT TIMES
|
|
PARSE(X,CNT) | ;Split text for wrapping.
|
|
PARSEM(PSBMED,PSBCNT) | ;Split text for wrapping meds, PSB*3*72
|
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 |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | GET1^DIQ |
^PS(50.7 - [#50.7] | GET1^DIQ |
^PS(52.6 - [#52.6] | GET1^DIQ, LIST^DIC |
^PS(52.7 - [#52.7] | GET1^DIQ, LIST^DIC |
^PSB(53.79 - [#53.79] | GET1^DIQ |