- SCMCMM ;ALB/REW - MailMessages Utilities ; 11/4/99 9:29am
- ;;5.3;Scheduling;**41,177,205**;AUG 13, 1993
- ;1
- PCMAIL(DFN,SCARRAY,SCDATE) ;load standard patient pc info into mail message
- ; DFN - ptr to Patient File
- ; SCARRAY - Literal value of XMTEXT ARRAY
- ; SCDATE - Date of interest - default=dt
- ; Returned: Ending Line Count for Array
- ;
- N SCLNCNT,SCPCTM,SCPHONE,SCPCAT,SCPCPR,SCPCAP
- S SCDATE=$G(SCDATE,DT)
- S SCLNCNT=+$O(@SCARRAY@(9999999),-1) ; the current number of lines
- S SCPCTM=$$NMPCTM^SCAPMCU2(DFN,SCDATE,1)
- I SCPCTM D
- .S SCPHONE=$P($G(^SCTM(404.51,+SCPCTM,0)),U,2)
- .S:$L(SCPHONE) SCPHONE=" Phone: "_SCPHONE
- .S SCPCTM=$P(SCPCTM,U,2)
- .S SCPCAT=$P($$NMPCPR^SCAPMCU2(DFN,SCDATE,2),U,2)
- .S SCPCPR=$P($$NMPCPR^SCAPMCU2(DFN,SCDATE,1),U,2)
- .S SCPCAP=$P($$NMPCPR^SCAPMCU2(DFN,SCDATE,3),U,2)
- IF $L(SCPCTM) D
- .D SETLN(" ")
- .D SETLN("Current Primary Care Management Data: ")
- .D:$L(SCPCTM) SETLN(" PC Team: "_SCPCTM_SCPHONE)
- .D:$L(SCPCPR) SETLN(" PC Provider(PCP): "_SCPCPR)
- .D:$L(SCPCAP) SETLN(" Associate Provider(AP): "_SCPCAP)
- .D:$L(SCPCAT) SETLN(" PC Attending: "_SCPCAT)
- ELSE D
- .D SETLN(" ")
- .D SETLN("No Current Primary Care Management Data")
- END Q SCLNCNT
- ;
- SETLN(TEXT) ;
- ;Note - This is not a stand-alone call - needs scarray,sclncnt
- Q:$G(TEXT)=""
- ; increments SCLNCNT, adds text to @scarray@(sclncnt)
- S SCLNCNT=SCLNCNT+1
- ;
- ;djb/bp Some rtns that call this rtn have text array in ARRY(counter)
- ;and others use ARRY(counter,0). Add code to handle both types.
- ;New code begin
- I $D(@SCARRAY@((SCLNCNT-1),0)) S @SCARRAY@(SCLNCNT,0)=TEXT
- E S @SCARRAY@(SCLNCNT)=TEXT
- ;New code end
- ;Old code begin
- ;S @SCARRAY@(SCLNCNT)=TEXT
- ;Old code end
- ;
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSCMCMM 1785 printed Mar 13, 2025@21:45:53 Page 2
- SCMCMM ;ALB/REW - MailMessages Utilities ; 11/4/99 9:29am
- +1 ;;5.3;Scheduling;**41,177,205**;AUG 13, 1993
- +2 ;1
- PCMAIL(DFN,SCARRAY,SCDATE) ;load standard patient pc info into mail message
- +1 ; DFN - ptr to Patient File
- +2 ; SCARRAY - Literal value of XMTEXT ARRAY
- +3 ; SCDATE - Date of interest - default=dt
- +4 ; Returned: Ending Line Count for Array
- +5 ;
- +6 NEW SCLNCNT,SCPCTM,SCPHONE,SCPCAT,SCPCPR,SCPCAP
- +7 SET SCDATE=$GET(SCDATE,DT)
- +8 ; the current number of lines
- SET SCLNCNT=+$ORDER(@SCARRAY@(9999999),-1)
- +9 SET SCPCTM=$$NMPCTM^SCAPMCU2(DFN,SCDATE,1)
- +10 IF SCPCTM
- Begin DoDot:1
- +11 SET SCPHONE=$PIECE($GET(^SCTM(404.51,+SCPCTM,0)),U,2)
- +12 if $LENGTH(SCPHONE)
- SET SCPHONE=" Phone: "_SCPHONE
- +13 SET SCPCTM=$PIECE(SCPCTM,U,2)
- +14 SET SCPCAT=$PIECE($$NMPCPR^SCAPMCU2(DFN,SCDATE,2),U,2)
- +15 SET SCPCPR=$PIECE($$NMPCPR^SCAPMCU2(DFN,SCDATE,1),U,2)
- +16 SET SCPCAP=$PIECE($$NMPCPR^SCAPMCU2(DFN,SCDATE,3),U,2)
- End DoDot:1
- +17 IF $LENGTH(SCPCTM)
- Begin DoDot:1
- +18 DO SETLN(" ")
- +19 DO SETLN("Current Primary Care Management Data: ")
- +20 if $LENGTH(SCPCTM)
- DO SETLN(" PC Team: "_SCPCTM_SCPHONE)
- +21 if $LENGTH(SCPCPR)
- DO SETLN(" PC Provider(PCP): "_SCPCPR)
- +22 if $LENGTH(SCPCAP)
- DO SETLN(" Associate Provider(AP): "_SCPCAP)
- +23 if $LENGTH(SCPCAT)
- DO SETLN(" PC Attending: "_SCPCAT)
- End DoDot:1
- +24 IF '$TEST
- Begin DoDot:1
- +25 DO SETLN(" ")
- +26 DO SETLN("No Current Primary Care Management Data")
- End DoDot:1
- END QUIT SCLNCNT
- +1 ;
- SETLN(TEXT) ;
- +1 ;Note - This is not a stand-alone call - needs scarray,sclncnt
- +2 if $GET(TEXT)=""
- QUIT
- +3 ; increments SCLNCNT, adds text to @scarray@(sclncnt)
- +4 SET SCLNCNT=SCLNCNT+1
- +5 ;
- +6 ;djb/bp Some rtns that call this rtn have text array in ARRY(counter)
- +7 ;and others use ARRY(counter,0). Add code to handle both types.
- +8 ;New code begin
- +9 IF $DATA(@SCARRAY@((SCLNCNT-1),0))
- SET @SCARRAY@(SCLNCNT,0)=TEXT
- +10 IF '$TEST
- SET @SCARRAY@(SCLNCNT)=TEXT
- +11 ;New code end
- +12 ;Old code begin
- +13 ;S @SCARRAY@(SCLNCNT)=TEXT
- +14 ;Old code end
- +15 ;
- +16 QUIT
