©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
PSOPFSU0 ;BIR/LE,AM - PFSS Get Account & Utilities ;08/09/93
Source file <PSOPFSU0.m>
| Package | Total | Call Graph |
|---|---|---|
| Integrated Billing | 1 | $$GETACCT^IBBAPI |
| VA Fileman | 1 | ($$GET1,GETS)^DIQ |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CHLOC() | ;FIND CHARGE LOCATION
|
|
| GACT(PSORXN,PSOREF) | ;ENTRY POINT: Called from PSON52; PSOR52, PSORN52. Get a PFSS acct ref
; This routine is only called when the PFSS Switch is on. |
|
| MCDIV(RX,FILL) | ;Get MC DIVISION from the Rx/Fill
|
|
| GOC | ;Called from GACTOF and GACTRF. Parse OP classifications and ICD's. Don't send null values.
|
|
| CLOK | ;
|
|
| RPH(PSORXN,PSOREF) | ;API entry point
; Inputs: PSORXN = prescription IEN, PSOREF = fill number ; Outputs: PSORPH = rel pharm IEN ^ user IEN who performed last activity or rel pharm iF no activity entries^ ; IB Service Section pointer from file 59 ; Returns null values when the Rx is not released or the input values are invalid (i.e. "^^"). |
|
| CHKRX(PSORX,PSOF) | ;validates Rx & fill. 0=not valid, 1=valid, 2=refill not valid
|
|
| GACTRF | ;Called from GACT. Get refill data
|
|
| GACTOF | ;Get orig fill data
|
| FileNo | Call Tags |
|---|---|
| ^PSRX - [#52] | GET1^DIQ, GETS^DIQ |
| 52.1 | GET1^DIQ, GETS^DIQ |
| 52.3 | GET1^DIQ |
| ^PS(59 - [#59] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DG(40.8 - [#40.8] | MCDIV+8 |
| ^PS(59 - [#59] | RPH+22, CLOK+1, CLOK+2 |
| ^PSRX - [#52] | GACT+17*, GACT+18*, RPH+19, CHKRX+2, CHKRX+3 |
| Name | Line Occurrences |
|---|---|
| $$CHKRX | RPH+6 |
| $$CHLOC | GACT+11 |
| $$MCDIV | GACT+8 |
| CLOK | CHLOC+5 |
| GACTOF | GACT+5 |
| GACTRF | GACT+6 |
| GOC | GACTOF+3, GACTRF+4 |
| Name | Field # of Occurrence |
|---|---|
| ^("I" | CLOK+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CHLOC | CHLOC+1~, CHLOC+4*, CHLOC+5*, CHLOC+6 |
| CL | CHLOC+1~, CHLOC+5*, CLOK+1, CLOK+2* |
| DATA | RPH+5~ |
| DATA( | RPH+14, RPH+15, RPH+16 |
| DATA(52 | RPH+10, RPH+11, RPH+12 |
| DIV | RPH+5~, RPH+11*, RPH+15*, RPH+22, MCDIV+1~, MCDIV+3*, MCDIV+4*, MCDIV+5, MCDIV+7, MCDIV+8* , MCDIV+9 |
| DT | CLOK+2 |
| FILL | MCDIV~, MCDIV+3, MCDIV+4 |
| I | GACT+3~, GOC+2*, GOC+3, GOC+4, GOC+5, RPH+5~, CLOK+1~*, CLOK+2 |
| IBSS | RPH+5~, RPH+22*, RPH+24 |
| II | RPH+5~, RPH+20* |
| INST | MCDIV+1~, MCDIV+7*, MCDIV+8 |
| J | GACT+3~, GOC+4*, GOC+5 |
| PDIV | CHLOC+1~, CHLOC+2*, CHLOC+3*, CHLOC+4 |
| PSOA | RPH+5~, RPH+19*, RPH+20 |
| PSODFN | GACT+3~, GACT+9*, GACT+14 |
| PSODG | GACT+3~, GACT+14, GOC+6* |
| PSODG( | GOC+3* |
| PSODIV | GACT+3~, GACT+8*, GACT+14 |
| PSOEDPH | RPH+5~, RPH+20*, RPH+23*, RPH+24 |
| PSOF | CHKRX~, CHKRX+1, CHKRX+3 |
| PSOOK | RPH+5~, RPH+6* |
| PSOPFSAC | GACT+3~, GACT+14*, GACT+16, GACT+17, GACT+18, GACT+19 |
| PSOPV1 | GACT+3~, GACT+14 |
| PSOPV1(2 | GACT+10* |
| PSOPV1(3 | GACT+11*, GACT+12 |
| PSOPV1(44 | GACTOF+2*, GACTRF+3* |
| PSOPV1(50 | GACT+10* |
| PSOPV1(7 | GACTOF+2*, GACTRF+2* |
| PSOPV2 | GACT+3~ |
| PSORDT | RPH+5~, RPH+12*, RPH+16*, RPH+17 |
| PSOREF | GACT~, GACT+5, GACT+6, GACT+8, GACT+17, GACT+18, GACTRF+1, GACTRF+2, GACTRF+3, CHLOC+2 , CHLOC+3, RPH~, RPH+6, RPH+7, RPH+8, RPH+9, RPH+13, RPH+14, RPH+15, RPH+16 |
| PSORPH | RPH+5~, RPH+10*, RPH+14*, RPH+23, RPH+24*, RPH+25 |
| PSORX | GACT+3~, CHKRX~, CHKRX+1, CHKRX+2, CHKRX+3 |
| PSORX( | GACTRF+2, GACTRF+3, GOC+2, GOC+3, GOC+4, GOC+5 |
| PSORX(52 | GACTOF+2 |
| PSORXN | GACT~, GACT+8, GACT+9, GACT+10, GACT+17, GACT+18, GACTOF+1, GACTOF+2, GACTRF+1, GACTRF+2 , GACTRF+3, CHLOC+2, CHLOC+3, GOC+1, GOC+2, GOC+3, GOC+4, GOC+5, RPH~, RPH+6 , RPH+7, RPH+8, RPH+10, RPH+11, RPH+12, RPH+14, RPH+15, RPH+16, RPH+19, RPH+20 |
| PSOZCL | GACT+3~, GACT+14, GOC+6* |
| PSOZCL( | GOC+5* |
| RX | MCDIV~, MCDIV+3, MCDIV+4 |