AQAQUTIL.m

AQAQUTIL ;IHS/ANMC/LJF - CREDENTIALS UTILITY RTN; [ 05/27/92  11:21 AM ]

 ;;2.2;STAFF CREDENTIALS;;01 OCT 1992

 ;

REVIEW ;EP;***> help text for review med staff functions field

 ;

 W !?10,"This review process includes the following:",!

 W !?15,"Drug Usage Review",?45,"Blood Utilitzation Review"

 W !?15,"Infection Control Review",?45,"Morbidity/Mortality Review"

 W !?15,"Medical Records Review",?45,"Tissue Review"

 W !?15,"Utilization Review",?45,"Peer Review"

 W !?15,"Liability Claims Tracking",?45,"Risk Management Review",!

 Q

 ;

 ;

EMER ;EP;>>> help text for emergency certification prompt

 ;

 W !,"Is this provider CURRENTLY certified in the required"

 W " emergency procedures?"

 W !?15,"For example:",?30,"BLS (Basic Life Support)"

 W !?30,"PALS (Pediatric Advanced Life Support)"

 W !?30,"ACLS (Advanced Cardiac Life Support)"

 W !?30,"ATLS (Advanced Trauma Life Support)"

 W !

 Q

 ;

 ;

KILL ;EP;***> kill statement for options

 ;

 ;***> kill fileman variables

 K C,D,D0,DA,DIC,DIDEL,DIE,DIK,DIQ,DIPGM,DIR,DLAYGO,DR,X,Y

 ;

 ;***> kill non-namespaced variables

 K DFN

 ;

 ;***> kill ztsk variables

 I $D(ZTQUEUED) S ZTREQ="@" Q

 ;

 ;***> kill AQAQ-namespaced variables

 K AQALOOK,AQAQ,AQAQA,AQAQADD

 K AQAQBDT

 K AQAQCAT,AQAQCD,AQAQCDX,AQAQCLS,AQAQCNT

 K AQAQDA,AQAQDEL,AQAQDFN,AQAQDIR,AQAQDR,AQAQDS,AQAQDSD

 K AQAQDT,AQAQDTOT,AQAQDUE,AQAQDUZ,AQAQDX

 K AQAQEDT,AQAQEND,AQAQEX

 K AQAQF,AQAQFAC,AQAQFILE,AQAQFL,AQAQFLD,AQAQFLG

 K AQAQG,AQAQGCT,AQAQGN,AQAQGRP

 K AQAQI,AQAQICD,AQAQICDF,AQAQICDN,AQAQICNT,AQAQICU

 K AQAQH,AQAQHDFN,AQAQJ

 K AQAQLAST,AQAQLIN,AQAQLIN2,AQAQLINE,AQAQLST

 K AQAQMFL,AQAQMS,AQAQMSG

 K AQAQNM,AQAQNOD,AQAQNUM

 K AQAQO,AQAQOPTN,AQAQOPTT

 K AQAQP,AQAQPAGE,AQAQPC,AQAQPCT,AQAQPDFN,AQAQPG

 K AQAQPM,AQAQPN,AQAQPRVC,AQAQPROV,AQAQPRV,AQAQPRVN,AQAQPT,AQAQPTL

 K AQAQR,AQAQRDFN,AQAQRE,AQAQRG,AQAQRNG

 K AQAQS,AQAQSCNT,AQAQSEN,AQAQSF,AQAQSFD,AQAQSFL,AQAQSITE,AQAQSR,AQAQSRT

 K AQAQSRV,AQAQST,AQAQSTOP,AQAQSTR,AQAQSTR1,AQAQSUB,AQAQSV,AQAQS0

 K AQAQTCNT,AQAQTCT,AQAQTICT,AQAQTM,AQAQTMN,AQAQTMP,AQAQTWCT

 K AQAQTOT,AQAQTY,AQAQTYP

 K AQAQV,AQAQVDFN,AQAQVDT,AQAQW,AQAQWCNT

 K AQAQX,AQAQX1,AQAQY,AQAQZ

 ;

 Q

AQAQUTIL  ;IHS/ANMC/LJF - CREDENTIALS UTILITY RTN; [ 05/27/92  11:21 AM ]

 +1       ;;2.2;STAFF CREDENTIALS;;01 OCT 1992

 +2       ;

REVIEW    ;EP;***> help text for review med staff functions field

 +1       ;

 +2        WRITE !?10,"This review process includes the following:",!

 +3        WRITE !?15,"Drug Usage Review",?45,"Blood Utilitzation Review"

 +4        WRITE !?15,"Infection Control Review",?45,"Morbidity/Mortality Review"

 +5        WRITE !?15,"Medical Records Review",?45,"Tissue Review"

 +6        WRITE !?15,"Utilization Review",?45,"Peer Review"

 +7        WRITE !?15,"Liability Claims Tracking",?45,"Risk Management Review",!

 +8        QUIT 

 +9       ;

 +10      ;

EMER      ;EP;>>> help text for emergency certification prompt

 +1       ;

 +2        WRITE !,"Is this provider CURRENTLY certified in the required"

 +3        WRITE " emergency procedures?"

 +4        WRITE !?15,"For example:",?30,"BLS (Basic Life Support)"

 +5        WRITE !?30,"PALS (Pediatric Advanced Life Support)"

 +6        WRITE !?30,"ACLS (Advanced Cardiac Life Support)"

 +7        WRITE !?30,"ATLS (Advanced Trauma Life Support)"

 +8        WRITE !

 +9        QUIT 

 +10      ;

 +11      ;

KILL      ;EP;***> kill statement for options

 +1       ;

 +2       ;***> kill fileman variables

 +3        KILL C,D,D0,DA,DIC,DIDEL,DIE,DIK,DIQ,DIPGM,DIR,DLAYGO,DR,X,Y

 +4       ;

 +5       ;***> kill non-namespaced variables

 +6        KILL DFN

 +7       ;

 +8       ;***> kill ztsk variables

 +9        IF $DATA(ZTQUEUED)

               SET ZTREQ="@"

               QUIT 

 +10      ;

 +11      ;***> kill AQAQ-namespaced variables

 +12       KILL AQALOOK,AQAQ,AQAQA,AQAQADD

 +13       KILL AQAQBDT

 +14       KILL AQAQCAT,AQAQCD,AQAQCDX,AQAQCLS,AQAQCNT

 +15       KILL AQAQDA,AQAQDEL,AQAQDFN,AQAQDIR,AQAQDR,AQAQDS,AQAQDSD

 +16       KILL AQAQDT,AQAQDTOT,AQAQDUE,AQAQDUZ,AQAQDX

 +17       KILL AQAQEDT,AQAQEND,AQAQEX

 +18       KILL AQAQF,AQAQFAC,AQAQFILE,AQAQFL,AQAQFLD,AQAQFLG

 +19       KILL AQAQG,AQAQGCT,AQAQGN,AQAQGRP

 +20       KILL AQAQI,AQAQICD,AQAQICDF,AQAQICDN,AQAQICNT,AQAQICU

 +21       KILL AQAQH,AQAQHDFN,AQAQJ

 +22       KILL AQAQLAST,AQAQLIN,AQAQLIN2,AQAQLINE,AQAQLST

 +23       KILL AQAQMFL,AQAQMS,AQAQMSG

 +24       KILL AQAQNM,AQAQNOD,AQAQNUM

 +25       KILL AQAQO,AQAQOPTN,AQAQOPTT

 +26       KILL AQAQP,AQAQPAGE,AQAQPC,AQAQPCT,AQAQPDFN,AQAQPG

 +27       KILL AQAQPM,AQAQPN,AQAQPRVC,AQAQPROV,AQAQPRV,AQAQPRVN,AQAQPT,AQAQPTL

 +28       KILL AQAQR,AQAQRDFN,AQAQRE,AQAQRG,AQAQRNG

 +29       KILL AQAQS,AQAQSCNT,AQAQSEN,AQAQSF,AQAQSFD,AQAQSFL,AQAQSITE,AQAQSR,AQAQSRT

 +30       KILL AQAQSRV,AQAQST,AQAQSTOP,AQAQSTR,AQAQSTR1,AQAQSUB,AQAQSV,AQAQS0

 +31       KILL AQAQTCNT,AQAQTCT,AQAQTICT,AQAQTM,AQAQTMN,AQAQTMP,AQAQTWCT

 +32       KILL AQAQTOT,AQAQTY,AQAQTYP

 +33       KILL AQAQV,AQAQVDFN,AQAQVDT,AQAQW,AQAQWCNT

 +34       KILL AQAQX,AQAQX1,AQAQY,AQAQZ

 +35      ;

 +36       QUIT