PSJMEDS ;BIR/MV-FIND PATIENT INFO FOR SPECIFIC WARD ;07 Jul 98 / 4:05 PM
Source file <PSJMEDS.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| WARDGP | ;*** Find wards within a ward group
|
|
| WARD | ;*** Go through each patient within a given WARD
|
|
| TEAM | ;*** Look up selected team. PSGTMALL= All teams were selected.
|
|
| ALLTM | ;*** Get UNIT DOSE information from ^PS(55
|
|
| MEDTYPE | ;
|
|
| LOOP(XTYPE) | ;*** Loop through stop date cross ref. to find unit dose nodes
|
|
| UDOSE | ;
|
|
| ADMIN | ;
|
|
| P | ;*** Set up ^TMP for sort by patients
|
|
| G | ;*** Goto W to set up ^TMP when print by WARD/WARD GROUP
|
|
| W | ;*** Set up ^TMP when listing by ward
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(42 - [#42] | WARDGP+1 |
| ^DPT("CN" | WARD+4 |
| ^PS(51.2 - [#51.2] | UDOSE+7 |
| ^PS(55 - [#55] | WARDGP+5, WARDGP+6, WARDGP+7, WARDGP+8, LOOP+1, LOOP+2, UDOSE+2, UDOSE+3, UDOSE+6, UDOSE+11 |
| ^PS(57.5 - [#57.5] | WARDGP+1 |
| ^PS(57.7 - [#57.7] | TEAM+5, ALLTM+2 |
| ^TMP($J | P+2*, P+3*, P+4*, W+1*, W+2*, W+3*, W+4*, W+5* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> ADMIN | ADMIN+3* |
| >> CLINIC | WARDGP+5*, WARDGP+6, WARDGP+7*, WARDGP+8 |
| >> DRG | UDOSE+6*, P+2, W+1, W+2, W+3 |
| >> JDFN | WARDGP+6*, WARDGP+8* |
| >> ON | LOOP+2*, UDOSE+2, UDOSE+3, UDOSE+6, UDOSE+11, ADMIN+1, P+2, P+3, P+4, W+1 , W+2, W+3, W+4, W+5 |
| >> PPN | WARDGP+6*, WARDGP+8*, WARD+4*, P+2, W+1, W+2, W+3 |
| >> PSGEXPDT | LOOP+1*, LOOP+2 |
| >> PSGLFD | UDOSE+9*, P+3, W+4 |
| >> PSGLOD | UDOSE+9*, P+3, W+4 |
| >> PSGLSD | UDOSE+9*, P+3, W+4 |
| >> PSGMAR( | ADMIN+3 |
| >> PSGMFOR | ADMIN+1* |
| >> PSGMTYPE | MEDTYPE+2, MEDTYPE+3 |
| >> PSGP | WARDGP+6*, WARDGP+8*, WARD+4*, LOOP+1, LOOP+2, UDOSE+2, UDOSE+3, UDOSE+6, UDOSE+11, P+2 , P+3, P+4, W+1, W+2, W+3, W+4, W+5 |
| >> PSGP(0 | WARDGP+6, WARDGP+8, WARD+4 |
| >> PSGPLF | UDOSE+3 |
| >> PSGPLO | ADMIN+1* |
| >> PSGPLS | LOOP+1 |
| >> PSGRBADM | W+1, W+2, W+3 |
| >> PSGSS | WARDGP+4*, WARD+4, UDOSE+14, ADMIN+2, ADMIN+3 |
| >> PSGTM | TEAM+4, TEAM+5 |
| >> PSGTM( | TEAM+5 |
| >> PSGTMALL | TEAM+3, TEAM+5 |
| >> PSGWD | WARDGP+1*, TEAM+5, ALLTM+2 |
| >> PSGWG | WARDGP+1, WARDGP+2 |
| >> PSGWN | WARDGP+1*, WARD+4, W+1, W+2, W+3 |
| >> PSJACNWP | WARDGP+4*, WARD+3* |
| >> PSJADT | UDOSE+14*, ADMIN+2*, ADMIN+3*, P+2, W+1, W+2, W+3 |
| >> PSJATME | UDOSE+14*, ADMIN+2*, ADMIN+3*, P+2, W+1, W+2, W+3 |
| >> PSJDOS | UDOSE+6*, P+3, W+4 |
| >> PSJHOLD | UDOSE+12*, P+3, W+4 |
| >> PSJMPRN | UDOSE+10 |
| >> PSJMR | UDOSE+7*, P+3, W+4 |
| >> PSJPLC | ADMIN+2 |
| >> PSJPPID | P+2, W+1, W+2, W+3 |
| >> PSJPRB | TEAM+5, ALLTM+2, MEDTYPE+1*, P+2, W+1, W+2, W+3 |
| >> PSJPWDN | P+2 |
| >> PSJSCHE | UDOSE+8*, P+3, W+4 |
| >> PSJSI | UDOSE+11*, P+4, W+5 |
| >> PST | LOOP+1*, LOOP+2, LOOP+3*, LOOP+4*, LOOP+5*, UDOSE+8, P+1 |
| QST | UDOSE+8*, UDOSE+10, UDOSE+13, UDOSE+14, P+1~*, P+2, P+3, P+4, W+1, W+2 , W+3, W+4, W+5 |
| >> RBNO | TEAM+5* |
| STDTE | WARDGP+3~, WARDGP+5*, WARDGP+6, WARDGP+7*, WARDGP+8 |
| >> TM | WARDGP+1*, TEAM+2*, TEAM+5*, ALLTM+2*, W+1, W+2, W+3 |
| >> TMNO | TEAM+5* |
| U | WARDGP+1, ALLTM+2, UDOSE+2, UDOSE+3, UDOSE+6, UDOSE+7, UDOSE+8, UDOSE+9, UDOSE+11, UDOSE+12 , P+2, P+3, W+1, W+2, W+3, W+4 |
| >> UD0 | UDOSE+2*, UDOSE+7, UDOSE+9, UDOSE+11, UDOSE+12 |
| >> UD2 | UDOSE+3*, UDOSE+8, UDOSE+9 |
| XTYPE | MEDTYPE+2*, MEDTYPE+3*, LOOP~, LOOP+1, LOOP+3, LOOP+4, LOOP+5 |
