ORWPFSS ; SLC/REV/GSS - CPRS PFSS Calls;08-Feb-2012 16:47;PLS
Source file <ORWPFSS.m>
Package | Total | Call Graph |
---|---|---|
Kernel | 1 | $$PATCH^XPDUTL |
VA Fileman | 1 | $$GET1^DIQ |
Package | Total | Caller Graph |
---|---|---|
Order Entry Results Reporting | 3 | ORWPFSS1 ORWPFSS2 ORWPFSS4 |
Name | Comments | DBIA/ICR reference |
---|---|---|
PKGTYP(ORIEN) | ; Build CPRS PFSS supported packages array
; returns 1 if order package type supported, otherwise returns 0 ; LR=Lab, RA=Radiology ; to add a package, include it above (documentation) & in For stmt below |
|
ORACTREF(ORACTREF,ORIEN) | ;Return PFSS Account Reference Number (ARN)
; PFSS ARN in order file (#100) as field #97, i.e., ^OR(100,ORIEN,5.5) ; This API is covered under IA #4673 |
|
ORDERCK(ORIEN) | ; check validity of Order IEN (ORIEN)
; used by ORWPFSS & ORWPFSS1, access as $$ORDERCK^ORWPFSS(ORIEN) |
|
PFSSACTV(ORY) | ; Is PFSS active for this system/user/etc?
; RPC called by Delphi to determine if passing visit string |
RPC Name | Call Tags |
---|---|
ORWPFSS IS PFSS ACTIVE? | PFSSACTV |
FileNo | Call Tags |
---|---|
^OR(100 - [#100] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DIC(9.4 - [#9.4] | PKGTYP+8 |
^OR(100 - [#100] | ORDERCK+14, PKGTYP+10 |
Name | Line Occurrences |
---|---|
$$ORDERCK | ORACTREF+18 |
$$PKGTYP | ORDERCK+16 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
I | PKGTYP+5~, PKGTYP+6* |
OIREC | ORACTREF+14~ |
OIV | ORACTREF+14~ |
OIVN | ORACTREF+14~ |
ORACTREF | ORACTREF~, ORACTREF+16*, ORACTREF+20* |
ORERCK | ORACTREF+14~, ORACTREF+18* |
ORIEN | ORACTREF~, ORACTREF+18, ORACTREF+20, ORDERCK~, ORDERCK+10, ORDERCK+12, ORDERCK+14, ORDERCK+16, PKGTYP~, PKGTYP+10 |
ORPKG | ORACTREF+14~, PKGTYP+5~, PKGTYP+6*, PKGTYP+8 |
ORPKGARY | PKGTYP+5~ |
ORPKGARY( | PKGTYP+8*, PKGTYP+10 |
ORY | PFSSACTV~, PFSSACTV+9*, PFSSACTV+13* |
U | ORDERCK+10, ORDERCK+12, ORDERCK+14, ORDERCK+16, PKGTYP+10 |