©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
PSS51P2 ;BIR/LDT - API FOR INFORMATION FROM FILE 51.2 ; 5 Sep 03
Source file <PSS51P2.m>
| Package | Total | Caller Graph |
|---|---|---|
| Order Entry Results Reporting | 4 | ORBCMA32 ORCDPS2 ORMBLDPS ORWDPS32 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DIRALL | ;TEST FOR PSSFL, PSSPK, BAILS IF CONDITIONS MEET TRUE
|
|
| 1 | ;
|
|
| SETZRO2 | ;
|
|
| COUNTBG | ;CHECKS PSSBGCNT AND FILLS COUNT IN ON 0 NODE OF ^TMP($J,LIST)
|
|
| IEN(PSSABBR,LIST) | ;
|
|
| SETZRO | ;
|
|
| LOOPDIR | ;LOOP FOR A DIRECT READ. READS ALL IENs FOR ^PSDRUG(
|
|
| LOOPDI | ;LOOPS ON "DILIST" FROM FILEMAN CALL (USED FOR RETURNING MULTIPLE DRUGS FROM PSSFT)
|
|
| 2 | ;
|
|
| ALL(PSSIEN,PSSFT,PSSFL,PSSPK,LIST) | ;
|
|
| NAME(PSSFT,PSSPK,LIST) | ;
|
|
| LOOP(PSS) | ;
|
|
| SETSCRN | ;Set Screen for inactive Medication Routes
|
|
| DIRREAD | ;MAIN DIRECT READ FOR ENTIRE ROUTINE
|
| FileNo | Call Tags |
|---|---|
| ^PS(51.2 - [#51.2] | FIND1^DIC, FIND^DIC, GETS^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PS(51.2 - [#51.2] | LOOPDIR+2, DIRALL+1, DIRALL+2, DIRREAD+1, DIRREAD+3, DIRREAD+4, DIRREAD+8, DIRREAD+9, DIRREAD+10, DIRREAD+11 , DIRREAD+12, DIRREAD+14, DIRREAD+20, DIRREAD+21, DIRREAD+22, DIRREAD+24, LOOP+2, 1+1, 2+1 |
| ^TMP("DILIST" | ALL+15!, LOOPDI+2, LOOPDI+3, NAME+15, NAME+16, NAME+17, NAME+18, IEN+11, IEN+12, IEN+13 , IEN+14 |
| ^TMP("PSS51P2" | NAME+18!, NAME+19, NAME+20!, IEN+14!, IEN+15, IEN+16!, SETZRO+1, SETZRO+2, SETZRO+3, SETZRO+4 , SETZRO+5, SETZRO+6, SETZRO+7, SETZRO+8, SETZRO2+1, SETZRO2+2, SETZRO2+3, SETZRO2+4, 1+4!, 1+5 , 2+2!, 2+3 |
| ^TMP($J | ALL+16!, ALL+17*, COUNTBG+2*, COUNTBG+3*, DIRREAD+2*, DIRREAD+3*, DIRREAD+5*, DIRREAD+6*, DIRREAD+7*, DIRREAD+8* , DIRREAD+9*, DIRREAD+12*, DIRREAD+13*, DIRREAD+15*, DIRREAD+17*, DIRREAD+18*, DIRREAD+19*, DIRREAD+20*, DIRREAD+21*, DIRREAD+23* , DIRREAD+25*, NAME+9!, NAME+10*, NAME+15*, NAME+16*, IEN+8!, IEN+9*, IEN+11*, IEN+12*, SETZRO+1* , SETZRO+2*, SETZRO+3*, SETZRO+4*, SETZRO+5*, SETZRO+6*, SETZRO+7*, SETZRO+8*, SETZRO2+1*, SETZRO2+2*, SETZRO2+3* , SETZRO2+4*, LOOP+3* |
| Name | Line Occurrences |
|---|---|
| @( | LOOP+2 |
| COUNTBG | ALL+22, ALL+25, ALL+26 |
| DIRALL | LOOPDIR+3 |
| DIRREAD | ALL+23, LOOPDI+4, DIRALL+4 |
| LOOP | NAME+13 |
| LOOPDI | ALL+26 |
| LOOPDIR | ALL+25 |
| SETSCRN | ALL+19 |
| SETZRO | 1+5 |
| SETZRO2 | NAME+19, IEN+15, 2+3 |
| Name | Field # of Occurrence |
|---|---|
| ^(7 | DIRREAD+23* |
| ^(8 | DIRREAD+25* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CNT | LOOP+1~*, LOOP+3, 1+5*, 2+3* |
| DIERR | ALL+11~, NAME+7~, IEN+6~ |
| LIST | ALL~, ALL+14, ALL+16, ALL+17, COUNTBG+2, COUNTBG+3, DIRREAD+2, DIRREAD+3, DIRREAD+5, DIRREAD+6 , DIRREAD+7, DIRREAD+8, DIRREAD+9, DIRREAD+12, DIRREAD+13, DIRREAD+15, DIRREAD+17, DIRREAD+18, DIRREAD+19, DIRREAD+20 , DIRREAD+21, DIRREAD+23, DIRREAD+25, NAME~, NAME+8, NAME+9, NAME+10, NAME+15, NAME+16, IEN~ , IEN+7, IEN+8, IEN+9, IEN+11, IEN+12, SETZRO+1, SETZRO+2, SETZRO+3, SETZRO+4, SETZRO+5 , SETZRO+6, SETZRO+7, SETZRO+8, SETZRO2+1, SETZRO2+2, SETZRO2+3, SETZRO2+4, LOOP+3 |
| ND | ALL+19~, 1+1*, 1+2, 1+3 |
| PSS | ALL+11~, NAME+7~, IEN+6~, LOOP~, LOOP+2 |
| PSS(1 | NAME+18*, NAME+19*, IEN+14*, IEN+15*, SETZRO+1, SETZRO+2, SETZRO+3, SETZRO+4, SETZRO+5, SETZRO+6 , SETZRO+7, SETZRO+8, SETZRO2+1, SETZRO2+2, SETZRO2+3, SETZRO2+4, 1+4*, 1+5*, 2+2*, 2+3* |
| PSS51P2 | ALL+11~, NAME+7~, IEN+6~ |
| PSSAB | DIRREAD+21~* |
| PSSABBR | IEN~, IEN+9, IEN+10 |
| PSSBGCNT | ALL+11~, ALL+12*, COUNTBG+1, COUNTBG+2, DIRREAD+26* |
| PSSCAP | ALL+11~, DIRREAD+11*, DIRREAD+12 |
| PSSCNT | ALL+11~ |
| PSSFL | ALL~, ALL+19, DIRALL+1, 1+2 |
| PSSFT | ALL~, ALL+17, ALL+25, ALL+26, NAME~, NAME+10, NAME+13, NAME+14 |
| PSSIEN | ALL~, ALL+17, ALL+22, ALL+24, NAME+18*, IEN+14*, LOOP+2*, 1+1, 1+4, 2+1 , 2+2 |
| PSSIEN2 | ALL+22~*, ALL+23, LOOPDI+3*, LOOPDIR+1*, LOOPDIR+2*, DIRALL+1, DIRALL+2, DIRREAD+1, DIRREAD+2, DIRREAD+3 , DIRREAD+4, DIRREAD+5, DIRREAD+6, DIRREAD+7, DIRREAD+8, DIRREAD+9, DIRREAD+10, DIRREAD+11, DIRREAD+12, DIRREAD+13 , DIRREAD+14, DIRREAD+15, DIRREAD+17, DIRREAD+18, DIRREAD+19, DIRREAD+20, DIRREAD+21, DIRREAD+22, DIRREAD+23, DIRREAD+24 , DIRREAD+25 |
| PSSNAM | ALL+11~, DIRREAD+1*, DIRREAD+2, DIRREAD+18 |
| PSSPK | ALL~, ALL+21, DIRALL+2, DIRALL+3, NAME~, NAME+12, 1+3, 2+1 |
| PSSTIEN | ALL+11~, LOOPDI+1*, LOOPDI+2*, LOOPDI+3 |
| PSSTMP | ALL+11~, DIRREAD+4*, DIRREAD+5, DIRREAD+6, DIRREAD+7, DIRREAD+14~*, DIRREAD+15, DIRREAD+16, DIRREAD+17, DIRREAD+19 , DIRREAD+22*, DIRREAD+23, DIRREAD+24*, DIRREAD+25 |
| PSSXX | NAME+17~*, NAME+18, IEN+13~*, IEN+14 |
| PSSZ5 | DIRALL+2~*, DIRALL+3 |
| PSSZ6 | DIRALL+2~* |
| SCR | ALL+11~, NAME+7~, IEN+6~ |
| SCR("S" | ALL+13*, ALL+18*, ALL+21*, ALL+22, ALL+26, SETSCRN+2*, NAME+12*, NAME+14 |
| >> TMP("DILIST" | NAME+20!, IEN+16! |
| U | LOOPDI+3, DIRALL+1, DIRALL+2, DIRREAD+1, DIRREAD+3, DIRREAD+4, DIRREAD+5, DIRREAD+6, DIRREAD+8, DIRREAD+9 , DIRREAD+10, DIRREAD+11, DIRREAD+12, DIRREAD+14, DIRREAD+15, DIRREAD+17, DIRREAD+20, DIRREAD+21, DIRREAD+22, DIRREAD+23 , DIRREAD+24, DIRREAD+25 |
| ZZERR | ALL+11~, NAME+7~, IEN+6~ |