PSSSCHMS ;BIR/MV-Frequency utilities routine ;09/13/10
Source file <PSSSCHMS.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 |
Package | Total | Caller Graph |
---|---|---|
Pharmacy Data Management | 3 | PSSDSAPD PSSDSAPI PSSSCHMS |
Name | Comments | DBIA/ICR reference |
---|---|---|
OLDSCH(PSSFWSCC) | ;Get IEN for .01 of the schedule file from the Old Schedule name
|
|
OLD51(PSSFWSCC) | ;Get IEN for .01 of the Med Instruction file from the Old Med Instruction name
|
|
DCFSCH(PSSIEN,PSSDDIEN,PSSFWDRL) | ;Dosing Check Frequency process for 51.1
|
|
DCFSCHD(PSSIEN,PSSFWDRL,PSSDCF,PSSFRQF) | ;Adjusting the frequency based on the order duration
|
|
DCF51(PSSIEN,PSSDDIEN,PSSFWDRL) | ;Dosing Check Frequency process for Med Instruction file
|
|
MULTSCH(PSSMSCH,PSSFWFR,PSSFWPK,PSSFWDRL) | ;Return Frequency for PSSMSCHD with multi schedules
|
|
ONETIME(PSSSCHD) | ;check for one-time, now, oncall schedules
|
|
DOWAT(PSSFWSCC,PSSDDIEN) | ;
|
|
DOWIEN(PSSSCH,PSSSCH1,PSSSCH2) | ;
|
|
AT(PSSAT,PSSDIG) | ;return admin time(s) in 2 or 4 digits format
|
|
SCHAT(PSSIEN,PSSSCH1,PSSSCH2) | ;return PSSIEN from 51.1 for DOW
|
|
ADDAT(PSSFWSCC) | ;concatenate admin times from 51.1 to the schedule name for DOW
|
|
CONVSCH(PSSFRQ) | ;Convert numeric frequency to a schedule
|
|
NOTALLDD(PSSGTOI,PSSIEN) | ;When only OI is sent from CPRS, all DDs must be defined in 51.1 in order for the DCF value to be used.
|
|
CHKIPDUR() | ;Check if CPRR IP has a duration <24hrs
|
|
ADMIN(DFN,PSSSCHD) | ;Determine if admin times for the ward should be used
|
|
DOSECNT(PSSEFD,PSSAT,PSSDUR) | ;count # of dose for duration <24h
|
|
SCHD | ;^PSSDSAPD is too big - move it here.
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^PS(51 - [#51] | OLD51+8, OLD51+10, OLD51+12, DCF51+11, DCF51+14, DCF51+15, DCF51+17 |
^PS(51.1 - [#51.1] | OLDSCH+9, OLDSCH+11, OLDSCH+14, DCFSCH+11, DCFSCH+14, DCFSCH+19, DCFSCH+21, ONETIME+6, ONETIME+7, DOWIEN+5 , DOWIEN+9, SCHAT+3, ADDAT+5, ADDAT+7, NOTALLDD+7, NOTALLDD+13, ADMIN+7, ADMIN+8, ADMIN+9, SCHD+9 , SCHD+10, SCHD+11 |
^PSDRUG - [#50] | NOTALLDD+11 |
^PSDRUG("ASP" | NOTALLDD+9 |
Name | Line Occurrences |
---|---|
$$ADDAT | MULTSCH+12 |
$$ADMIN | CHKIPDUR+16 |
$$AT | DOWAT+7, DOWAT+8, SCHAT+7, SCHAT+8, SCHAT+13, SCHAT+14 |
$$DCFSCH | DOWAT+12 |
$$DCFSCHD | DCFSCH+21, DCF51+17 |
$$DOWIEN | DOWAT+5, DOWAT+6, DOWAT+7, DOWAT+8, DOWAT+9 |
$$NOTALLDD | DCFSCH+16 |
$$ONETIME | MULTSCH+13 |
$$SCHAT | DOWIEN+6 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DFN | ADMIN~, ADMIN+4 |
DT | NOTALLDD+11 |
PSSADM | ADMIN+1~, ADMIN+6*, ADMIN+8*, ADMIN+11 |
PSSADMIN | CHKIPDUR+7~, CHKIPDUR+16*, CHKIPDUR+17, CHKIPDUR+18, DOSECNT+5~, DOSECNT+15*, DOSECNT+16*, DOSECNT+18, DOSECNT+19, DOSECNT+20 |
PSSASIEN | ONETIME+3~, ONETIME+6*, ONETIME+7, ADDAT+2~, ADDAT+5*, ADDAT+7 |
PSSAT | AT~, AT+3, AT+6, SCHAT+1~, SCHAT+4*, SCHAT+6, SCHAT+7, SCHAT+8, SCHAT+10, SCHAT+13 , SCHAT+14, DOSECNT~, DOSECNT+7, DOSECNT+15, DOSECNT+16 |
PSSCNT | DOSECNT+5~, DOSECNT+10*, DOSECNT+18*, DOSECNT+19*, DOSECNT+20*, DOSECNT+21 |
>> PSSDBAR("FREQ" | SCHD+2*, SCHD+4*, SCHD+12*, SCHD+19*, SCHD+20*, SCHD+21 |
>> PSSDBAR("FREQZZ" | SCHD+16*, SCHD+17, SCHD+18*, SCHD+19 |
>> PSSDBAR("TYPE" | MULTSCH+21*, SCHD+4 |
>> PSSDBCAZ( | SCHD+7*, SCHD+21* |
>> PSSDBDFN | CHKIPDUR+16 |
>> PSSDBDS | CHKIPDUR+8 |
>> PSSDBDS( | SCHD+6, SCHD+16 |
>> PSSDBDS(1 | CHKIPDUR+11, CHKIPDUR+12, CHKIPDUR+16, CHKIPDUR+18 |
>> PSSDBFDB | CHKIPDUR+8 |
>> PSSDBFDB( | SCHD+7, SCHD+8, SCHD+12, SCHD+16, SCHD+18*, SCHD+20, SCHD+21 |
>> PSSDBFDB("OI" | DCFSCH+16 |
>> PSSDBFDB("PACKAGE" | CHKIPDUR+10 |
>> PSSDBFDB(1 | CHKIPDUR+9 |
>> PSSDBIFL | DCFSCH+15 |
>> PSSDBLP | SCHD+6, SCHD+7, SCHD+8, SCHD+12, SCHD+16, SCHD+18, SCHD+20, SCHD+21 |
PSSDBSCD | SCHD+1~, SCHD+6*, SCHD+7, SCHD+9, SCHD+13, SCHD+14, SCHD+16 |
PSSDBSCF | SCHD+1~, SCHD+8*, SCHD+10*, SCHD+13*, SCHD+16 |
PSSDBSCG | SCHD+1~, SCHD+9*, SCHD+10, SCHD+11 |
PSSDBSCH | SCHD+1~, SCHD+8*, SCHD+9, SCHD+11*, SCHD+12 |
PSSDBSCP | SCHD+1~, SCHD+8*, SCHD+15*, SCHD+16 |
PSSDCF | DCFSCH+9~, DCFSCH+11*, DCFSCH+12, DCFSCH+21, DCFSCH+22, DCFSCHD~, DCFSCHD+7, DCFSCHD+13, DCFSCHD+14, DCFSCHD+19 , DCFSCHD+23, DCF51+9~, DCF51+11*, DCF51+12, DCF51+17, DCF51+18, SCHD+1~, SCHD+17*, SCHD+18 |
PSSDCF1 | DCFSCH+9~, DCFSCH+21*, DCFSCH+22, DCFSCHD+6~, DCFSCHD+11*, DCFSCHD+13, DCFSCHD+16*, DCFSCHD+17*, DCFSCHD+19, DCFSCHD+20* , DCFSCHD+23*, DCFSCHD+24*, DCFSCHD+25, DCF51+9~, DCF51+17*, DCF51+18 |
PSSDCFD | DCFSCHD+6~, DCFSCHD+15*, DCFSCHD+16, DCFSCHD+17 |
PSSDCFLG | DCFSCH+9~, DCFSCH+10*, DCFSCH+14*, DCFSCH+19*, DCFSCH+20, DCF51+9~, DCF51+10*, DCF51+14*, DCF51+15*, DCF51+16 |
PSSDCFN | DCFSCHD+6~, DCFSCHD+14*, DCFSCHD+15, DCFSCHD+23*, DCFSCHD+24 |
PSSDD | NOTALLDD+4~, NOTALLDD+12*, NOTALLDD+14 |
PSSDDACT | NOTALLDD+4~, NOTALLDD+11* |
PSSDDIEN | DCFSCH~, DCFSCH+17*, DCFSCH+19, DCF51~, DCF51+15, DOWAT~, DOWAT+12, NOTALLDD+4~, NOTALLDD+9*, NOTALLDD+10 , NOTALLDD+11, NOTALLDD+12, NOTALLDD+13 |
PSSDIG | AT~, AT+4*, AT+6 |
PSSDOW | MULTSCH+7~, MULTSCH+8*, MULTSCH+14* |
PSSDOWAT | MULTSCH+7~ |
PSSDRL | DCFSCHD+6~, DCFSCHD+9*, DCFSCHD+10, DCFSCHD+15, DCFSCHD+21 |
PSSDSCNT | CHKIPDUR+7~, CHKIPDUR+18*, CHKIPDUR+19 |
PSSDTFLG | DOSECNT+5~, DOSECNT+13*, DOSECNT+14*, DOSECNT+17 |
PSSDUR | CHKIPDUR+7~, CHKIPDUR+13*, CHKIPDUR+14, CHKIPDUR+15, CHKIPDUR+18, DOSECNT~, DOSECNT+8, DOSECNT+9 |
PSSEDT | DOSECNT+5~, DOSECNT+9*, DOSECNT+12, DOSECNT+14 |
PSSEFD | DOSECNT~, DOSECNT+6, DOSECNT+9, DOSECNT+11, DOSECNT+14 |
PSSFL1 | SCHAT+1~, SCHAT+4*, SCHAT+10*, SCHAT+13*, SCHAT+14*, SCHAT+16 |
PSSFL2 | SCHAT+1~, SCHAT+4* |
PSSFLG | DOWIEN+2~, DOWIEN+4*, DOWIEN+5, DOWIEN+9* |
PSSFRQ | DCFSCHD+6~, DCFSCHD+21*, DCFSCHD+22*, DCFSCHD+24, MULTSCH+7~, MULTSCH+8*, MULTSCH+11*, MULTSCH+28*, MULTSCH+29, CONVSCH~ , CONVSCH+3, CONVSCH+6, CONVSCH+12, CONVSCH+13 |
PSSFRQF | DCFSCH+9~, DCFSCH+21*, DCFSCHD~, DCFSCHD+19, DCFSCHD+21, DCF51+9~, DCF51+17* |
PSSFWBAM | CONVSCH+4~, CONVSCH+6*, CONVSCH+7, CONVSCH+8, CONVSCH+9, CONVSCH+10, CONVSCH+11 |
PSSFWBMN | CONVSCH+4~, CONVSCH+9* |
PSSFWBNM | CONVSCH+4~ |
PSSFWBWK | CONVSCH+4~, CONVSCH+10* |
PSSFWBXL | CONVSCH+4~, CONVSCH+13* |
PSSFWBXW | CONVSCH+4~, CONVSCH+12* |
PSSFWDRL | DCFSCH~, DCFSCH+21, DCFSCHD~, DCFSCHD+8, DCFSCHD+9, DCF51~, DCF51+17, MULTSCH~, MULTSCH+8, MULTSCH+26 , MULTSCH+28* |
PSSFWFLG | CONVSCH+4~, CONVSCH+5*, CONVSCH+8, CONVSCH+9*, CONVSCH+10*, CONVSCH+11*, CONVSCH+12*, CONVSCH+13* |
PSSFWFR | MULTSCH~, MULTSCH+14* |
PSSFWPK | MULTSCH~ |
PSSFWRST | CONVSCH+4~, CONVSCH+8, CONVSCH+9*, CONVSCH+10*, CONVSCH+11*, CONVSCH+12*, CONVSCH+13* |
PSSFWSCC | OLDSCH~, OLDSCH+7, OLDSCH+9, OLDSCH+10, OLDSCH+13, OLDSCH+15*, OLDSCH+16, OLD51~, OLD51+7, OLD51+8 , OLD51+9, OLD51+11, OLD51+13*, OLD51+14, MULTSCH+7~, MULTSCH+10*, MULTSCH+11, MULTSCH+12*, MULTSCH+13, MULTSCH+14 , MULTSCH+18, MULTSCH+19, MULTSCH+28*, DOWAT~, DOWAT+3, DOWAT+4, DOWAT+5, ADDAT~, ADDAT+3, ADDAT+5 , ADDAT+6, ADDAT+9*, ADDAT+10 |
PSSGTOI | NOTALLDD~, NOTALLDD+5, NOTALLDD+9 |
PSSIEN | OLDSCH+6~, OLDSCH+11*, OLDSCH+13, OLDSCH+14, OLDSCH+15, OLD51+6~, OLD51+10*, OLD51+11, OLD51+12, OLD51+13 , DCFSCH~, DCFSCH+8, DCFSCH+11, DCFSCH+14, DCFSCH+16, DCFSCH+19, DCFSCH+21, DCFSCHD~, DCFSCHD+20, DCF51~ , DCF51+8, DCF51+11, DCF51+14, DCF51+15, DCF51+17, DOWAT+2~, DOWAT+5*, DOWAT+6*, DOWAT+7*, DOWAT+8* , DOWAT+9*, DOWAT+10, DOWAT+12, DOWIEN+2~, DOWIEN+4*, DOWIEN+8*, DOWIEN+9*, DOWIEN+10, SCHAT~, SCHAT+2 , SCHAT+3, SCHAT+6, SCHAT+7, SCHAT+8, SCHAT+16*, SCHAT+17, NOTALLDD~, NOTALLDD+6, NOTALLDD+7, NOTALLDD+13 , ADMIN+1~, ADMIN+7*, ADMIN+8, ADMIN+9 |
PSSIEN0 | SCHAT+1~, SCHAT+3*, SCHAT+4, SCHAT+6, SCHAT+7, SCHAT+8 |
PSSMSCH | MULTSCH~, MULTSCH+9, MULTSCH+10 |
PSSNODD | DCFSCH+9~, DCFSCH+15, DCFSCH+16*, DCFSCH+17, NOTALLDD+4~, NOTALLDD+8*, NOTALLDD+9, NOTALLDD+13*, NOTALLDD+14 |
PSSODRL | MULTSCH+7~, MULTSCH+8*, MULTSCH+28 |
PSSOLDNM | OLDSCH+6~, OLDSCH+10*, OLDSCH+11, OLD51+6~, OLD51+9*, OLD51+10 |
PSSOMEDN | OLD51+6~, OLD51+13*, OLD51+14 |
PSSONCE | MULTSCH+7~, MULTSCH+8*, MULTSCH+10, MULTSCH+13*, MULTSCH+21 |
PSSOSCH | MULTSCH+7~, MULTSCH+8*, MULTSCH+19*, MULTSCH+28 |
PSSOSN | OLDSCH+6~, OLDSCH+15*, OLDSCH+16 |
PSSOUT | ONETIME+3~, ONETIME+5*, ONETIME+6, ONETIME+8*, ONETIME+9 |
PSSOUT1 | MULTSCH+7~, MULTSCH+16*, MULTSCH+18, MULTSCH+19 |
PSSOUTD | MULTSCH+7~, MULTSCH+22 |
PSSOUTD( | MULTSCH+18*, MULTSCH+23 |
PSSOUTD("" | MULTSCH+23 |
PSSOUTX | MULTSCH+7~ |
PSSOUTX( | MULTSCH+19*, MULTSCH+25 |
PSSOUTX("" | MULTSCH+25 |
PSSP1 | MULTSCH+7~, MULTSCH+22, MULTSCH+23*, MULTSCH+25*, MULTSCH+26, MULTSCH+28 |
PSSSCH | OLDSCH+6~, OLDSCH+14*, OLDSCH+15, OLD51+6~, OLD51+12*, OLD51+13, DOWIEN~, DOWIEN+3, DOWIEN+5 |
PSSSCH1 | DOWAT+2~, DOWAT+4*, DOWAT+5, DOWAT+6, DOWAT+7, DOWAT+8, DOWAT+9, DOWIEN~, DOWIEN+6, SCHAT~ , SCHAT+6, SCHAT+7, SCHAT+8, SCHAT+13, SCHAT+14 |
PSSSCH2 | DOWAT+2~, DOWAT+4*, DOWAT+5, DOWAT+6, DOWAT+7, DOWAT+8, DOWAT+9, DOWIEN~, DOWIEN+6, SCHAT~ , SCHAT+6, SCHAT+7, SCHAT+8, SCHAT+10, SCHAT+13, SCHAT+14 |
PSSSCHD | ONETIME~, ONETIME+4, ONETIME+6, ADMIN~, ADMIN+2, ADMIN+7 |
PSSSTPTM | DOSECNT+5~, DOSECNT+12*, DOSECNT+18, DOSECNT+20 |
PSSSTRTM | DOSECNT+5~, DOSECNT+11*, DOSECNT+18, DOSECNT+19 |
PSSWARD | ADMIN+1~, ADMIN+5*, ADMIN+9 |
PSSWDADM | ADMIN+1~, ADMIN+6*, ADMIN+7, ADMIN+9*, ADMIN+10 |
PSSX | MULTSCH+7~, MULTSCH+10*, ONETIME+3~, ONETIME+7*, ONETIME+8, DOWIEN+2~, DOWIEN+5*, DOWIEN+6, DOWIEN+8, DOWIEN+9 , AT+2~, AT+5*, AT+6*, AT+7, ADDAT+2~, ADDAT+7*, ADDAT+8, ADDAT+9, CHKIPDUR+7~, CHKIPDUR+12* , CHKIPDUR+13, DOSECNT+5~, DOSECNT+15*, DOSECNT+16 |
PSSXFG | ADDAT+2~, ADDAT+4*, ADDAT+5, ADDAT+6*, ADDAT+8*, ADDAT+9* |
PSSY | AT+2~, AT+6* |
U | OLDSCH+15, OLDSCH+16, OLD51+12, OLD51+14, DCFSCH+11, DCFSCH+17, DCFSCH+21, DCFSCH+22, DCF51+11, DCF51+17 , DCF51+18, MULTSCH+26, MULTSCH+28, ONETIME+7, DOWIEN+9, SCHAT+4, SCHAT+6, SCHAT+7, SCHAT+8, ADDAT+8 , ADDAT+9, CONVSCH+8, CONVSCH+12, CONVSCH+13, NOTALLDD+14, CHKIPDUR+19, ADMIN+8, ADMIN+9, SCHD+17, SCHD+18 |
VAIN | ADMIN+1~ |
VAIN(4 | ADMIN+5 |