- BIDTAB ;IHS/CMI/MWR - VIEW DATA ELEMENTS; MAY 10, 2010
- ;;8.5;IMMUNIZATION;;SEP 01,2011
- ;;* MICHAEL REMILLARD, DDS * CIMARRON MEDICAL INFORMATICS, FOR IHS *
- ;; VIEW DATA ELEMENTS, NOT CALLED BY MENUS, PROGRAMMER ONLY.
- ;
- ;
- ;---> Select Data Elements, if ASCII.
- N BIIT S BIIT="Data Element"
- N BICOL S BICOL=" # Data Element IEN"
- ;N BIID S BIID="3;S X=X_"" IEN: ""_BIIEN;40"
- N BIID S BIID="1;S X=BIIEN;40"
- D SEL^BISELECT(9002084.91,"BIDE",BIIT,,,,BIID,BICOL,.BIPOP,1)
- Q
- ;
- ;
- ;**** CODE BELOW SHOULD BE USED TO CREATE PROPER LIST TEMPLATE.
- ;**** For now, at least, it displays all Error Codes in a List.
- ;----------
- START ;EP
- ;---> Display Error Code table.
- ;
- D SETVARS^BIUTL5
- D EN
- Q
- ;
- ;
- ;----------
- EN ;EP
- ;---> Main entry point for option BI VACCINE TRANSLATION TABLE VIEW.
- D EN^VALM("BI TABLE ERROR CODE VIEW")
- Q
- ;
- ;
- ;----------
- INIT ;EP
- ;---> Initialize variables and list array.
- N N,I
- S N=0
- F I=1:1 S N=$O(^BIERR(N)) Q:'N D
- .S ^TMP("BIETAB",$J,I,0)=" "_N_" "_$P(^BIERR(N,0),U,2)
- S VALMCNT=I-1
- Q
- ;
- ;
- ;----------
- RESET ;EP
- ;---> Update partition for return to Listmanager.
- I $D(VALMQUIT) S VALMBCK="Q" Q
- D TERM^VALM0 S VALMBCK="R"
- D INIT Q
- ;
- ;
- ;----------
- HELP ;EP
- ;---> Help code.
- N BIX S BIX=X
- D FULL^VALM1
- W !!?5,"Use arrow keys to scroll up and down through the list, or"
- W !?5,"enter ""A"", then an Error Code Number in order to Add, Edit"
- W !?5,"or Delete an Error Code, or"
- W !?5,"type ""??"" for more actions, such as Search and Print List."
- D:BIX'="??" DIRZ^BIUTL3(""," Press ENTER/RETURN to continue"),RE^VALM4
- Q
- ;
- ;
- ;----------
- EXIT ;EP
- ;---> Cleanup, EOJ.
- D KILLALL^BIUTL8()
- K ^TMP("BIETAB",$J)
- D CLEAR^VALM1
- D FULL^VALM1
- Q
- ;
- ;
- ;----------
- ADDEDEL ;EP
- ;---> Add/Edit/Delete Error Codes.
- ;
- D FULL^VALM1
- D TITLE^BIUTL5("ADD/EDIT/DELETE ERROR CODES")
- W !!?3,"This is your big chance to add/edit/delete Error Codes!",!!
- N Y
- D DIC^BIFMAN(9002084.33,"QEMAL",.Y," Select ERROR CODE: ")
- I Y<1 D RESET Q
- S DR=".01;.02"
- D DIE^BIFMAN(9002084.33,DR,+Y)
- D RESET
- Q
- BIDTAB ;IHS/CMI/MWR - VIEW DATA ELEMENTS; MAY 10, 2010
- +1 ;;8.5;IMMUNIZATION;;SEP 01,2011
- +2 ;;* MICHAEL REMILLARD, DDS * CIMARRON MEDICAL INFORMATICS, FOR IHS *
- +3 ;; VIEW DATA ELEMENTS, NOT CALLED BY MENUS, PROGRAMMER ONLY.
- +4 ;
- +5 ;
- +6 ;---> Select Data Elements, if ASCII.
- +7 NEW BIIT
- SET BIIT="Data Element"
- +8 NEW BICOL
- SET BICOL=" # Data Element IEN"
- +9 ;N BIID S BIID="3;S X=X_"" IEN: ""_BIIEN;40"
- +10 NEW BIID
- SET BIID="1;S X=BIIEN;40"
- +11 DO SEL^BISELECT(9002084.91,"BIDE",BIIT,,,,BIID,BICOL,.BIPOP,1)
- +12 QUIT
- +13 ;
- +14 ;
- +15 ;**** CODE BELOW SHOULD BE USED TO CREATE PROPER LIST TEMPLATE.
- +16 ;**** For now, at least, it displays all Error Codes in a List.
- +17 ;----------
- START ;EP
- +1 ;---> Display Error Code table.
- +2 ;
- +3 DO SETVARS^BIUTL5
- +4 DO EN
- +5 QUIT
- +6 ;
- +7 ;
- +8 ;----------
- EN ;EP
- +1 ;---> Main entry point for option BI VACCINE TRANSLATION TABLE VIEW.
- +2 DO EN^VALM("BI TABLE ERROR CODE VIEW")
- +3 QUIT
- +4 ;
- +5 ;
- +6 ;----------
- INIT ;EP
- +1 ;---> Initialize variables and list array.
- +2 NEW N,I
- +3 SET N=0
- +4 FOR I=1:1
- SET N=$ORDER(^BIERR(N))
- IF 'N
- QUIT
- Begin DoDot:1
- +5 SET ^TMP("BIETAB",$JOB,I,0)=" "_N_" "_$PIECE(^BIERR(N,0),U,2)
- End DoDot:1
- +6 SET VALMCNT=I-1
- +7 QUIT
- +8 ;
- +9 ;
- +10 ;----------
- RESET ;EP
- +1 ;---> Update partition for return to Listmanager.
- +2 IF $DATA(VALMQUIT)
- SET VALMBCK="Q"
- QUIT
- +3 DO TERM^VALM0
- SET VALMBCK="R"
- +4 DO INIT
- QUIT
- +5 ;
- +6 ;
- +7 ;----------
- HELP ;EP
- +1 ;---> Help code.
- +2 NEW BIX
- SET BIX=X
- +3 DO FULL^VALM1
- +4 WRITE !!?5,"Use arrow keys to scroll up and down through the list, or"
- +5 WRITE !?5,"enter ""A"", then an Error Code Number in order to Add, Edit"
- +6 WRITE !?5,"or Delete an Error Code, or"
- +7 WRITE !?5,"type ""??"" for more actions, such as Search and Print List."
- +8 IF BIX'="??"
- DO DIRZ^BIUTL3(""," Press ENTER/RETURN to continue")
- DO RE^VALM4
- +9 QUIT
- +10 ;
- +11 ;
- +12 ;----------
- EXIT ;EP
- +1 ;---> Cleanup, EOJ.
- +2 DO KILLALL^BIUTL8()
- +3 KILL ^TMP("BIETAB",$JOB)
- +4 DO CLEAR^VALM1
- +5 DO FULL^VALM1
- +6 QUIT
- +7 ;
- +8 ;
- +9 ;----------
- ADDEDEL ;EP
- +1 ;---> Add/Edit/Delete Error Codes.
- +2 ;
- +3 DO FULL^VALM1
- +4 DO TITLE^BIUTL5("ADD/EDIT/DELETE ERROR CODES")
- +5 WRITE !!?3,"This is your big chance to add/edit/delete Error Codes!",!!
- +6 NEW Y
- +7 DO DIC^BIFMAN(9002084.33,"QEMAL",.Y," Select ERROR CODE: ")
- +8 IF Y<1
- DO RESET
- QUIT
- +9 SET DR=".01;.02"
- +10 DO DIE^BIFMAN(9002084.33,DR,+Y)
- +11 DO RESET
- +12 QUIT
